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Abstract 

The  purpose  of  this  effort  was  to  provide  middle  to  senior  i.evel 
managers  a  tool  which  would  enhance  their  knowledge  of  how  space  assets 
are  acquired,  deployed,  and  maneuvered  in  response  to  the  ground 
situation. 

This  effort  had  two  basic  objectives:  (1)  Provide  a  user 
friendly  model  which  effectively  s  initiates  the  acquisition  and 
deployment  process  of  space  assets.  (2)  Develop  a  model  which  could 
be  used  as  a  baseline  for  follow-on  efforts. 

The  model  was  developed  on  a  micro-ccrputer  because  it  was 
perceived  this  media  would  provide  a  mare  user-friendly  and  expandable 
environment. 
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has  been  a  vital  part  of  our  national  defense  for  over  two 
decades.  Currently,  the  US  relies  on  space-based  assets  to  perform 
many  critical  functions  including  surveillance,  intelligence 
collection,  ocnnunication  and  navigation.  The  Soviets  also  view  space 
as  an  integral  part  of  their  national  defense.  While  the  Soviets  do 
not  rely  on  their  spaoe4&sed  assets  as  much  as  the  US,  the  number, 
complexity,  and  valuta  of  their  satellites  are  increasing  rapidly. 
Accordingly,  the  Soviets  are  relying  more  on  these  assets. 

As  these  space  assets  become  more  critical  to  the  US  and  USSR,  the 
possibility  of  a  space  conflict  becomes  more  likely.  There  may  come  a 
time  when  it  becomes  important  to  deny  the  Soviet's  use  of  space  for 
military  purposes,  and  at  the  same  time,  preserve  US  space  assets.  A 
space  conflict  would  probably  precede,, or  possibly  accompany,  the 
outbreak  of  hostilities  cn  earth.  *"The  space  conflict  could 
potentially  begin  with  a  preemptive  attack  against  enemy  satellites 
using  one  or  more  of  the  proposed  anti-satellite  weapons.  It  is  also 
probable  that  such  a  conflict  would  involve  a  wide  range  of  defensive 
counter-measures  to  protect  the  satellites  under  attack  (5:2) . 
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Should  there  be  a  general  superpower  conflict  at  ary  point  from 
the  mid-1980s  to  the  end  of  the  century,  there  will  be  warlike 
action  in,  and  relating  to,  space.  In  the  event  of  general  war, 
conflict  in  space  will  oocur.  (9:5) 

There  are  many  models  which  currently  simulate  certain  aspects  of 

a  general  space  conflict.  These  models  typically  simulate  only  one 

element  of  a  highly  complex  system.  For  example,  Boeing  Aerospace  has 

developed  the  Intercept  Opportunity  Deterministic  Model  (IOCM)  which 

simulates  an  air-launched  ASAT  directed  at  a  single  Soviet  satellite 

(11: — ) .  While  these  models  are  useful  to  develop  detailed  performance 

requirements  for  particular  elements,  as  single-element  simulators, 

they  are  inadequate  to  model  the  overall  space  environment. 

Wargames  are  often  limited  to  the  direct  effects  of  engaged 
forces,  without  consideration  of  the  interrelated  effects  of  other 
deployed  farces  or  supporting  elements  that  might  be  applied  to  or 
bear  indirectly  upon  the  ocnflict.  (10:2) 

Even  though  space  has  been  critical  for  a  long  time,  there  is  a 

definite  lack  of  understanding  of  how  space  assets  interact  with  the 

terrestrial  forces.  commanders  make  daily  use  of  information  gathered 

from  space,  such  as  weather  reports  or  intelligence  briefings,  without 

considering  hew  the  information  was  collected,  unless  commanders  "have 

an  appreciation  of  space  assets,  their  capabilities  cannot  be  fully 

exploited  and  the  inpact  of  their  loss  or  degradation  understood" 

(2:7). 

Because  both  the  US  and  USSR  rely  heavily  on  their  space  forces,  a 
future  conflict  in  space  is  a  very  reed  possibility.  Therefore,  it  is 
vital  that  we  develop  a  space-war  doctrine,  just  as  we  have  developed 
doctrines  for  land,  sea,  and  air  combat. 
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A  key  step  in  developing  a  space-war  doctrine  is  developing  an 
understanding  of  the  dynamics  of  space-based  conflicts.  To  enhance 
this  understanding,  a  model  is  needed  which  represents  how  the  space 
forces  are  acquired,  launched,  and  maneuvered  in  regards  to  demand  of 
the  ground  situation. 

In  response  to  this  requirement,  a  manual  board  game  called  the 
Space  Resource  Allocation  Exercise  (SRAE)  was  developed  for  use  at  the 
Air  Ooumand  and  Staff  College  (ACSC)  and  the  Air  War  College  (AWC) 

(16: — ) .  This  game  was  "developed  as  a  tool  for  teaching  basic  space 
terminology,  limitations  on  the  use  of  space,  and  how  space  systems 
affect  occbat  forces"  (20:iii). 

To  enhance  this  learning  experience,  it  was  decided  to 
occputerize  and  improve  the  SRAE.  This  would  enable  satellite  orbits 
and  ground  traces  to  be  projected  graphically,  to  enable  the  player  to 
develop  an  understanding  of  these  "fuzzy"  concepts.  Ocnputerizing 
SRAE  would  also  free  the  players  to  concentrate  on  the  concepts  of  the 
game,  instead  of  the  normal  bookkeeping  associated  with  manual  games. 

This  study  is  an  initial  step  towards  developing  a  wargame  which 
incorporates  the  effect  of  the  space  conflict  on  the  ground  ocnfoat 
situation.  This  effort  would  then  be  used  as  a  front  aid  for  the  next 
logical  step  in  the  process  of  defining  a  space-war  doctrine.  This 
future  game  is  part  of  the  charter  of  the  Air  war  College  Space  Ocnmand 
Chair  (20:iii). 

Purpose 

The  purpose  of  this  thesis  is  to  provide  a  model  which  would 
enhance  middle  to  senior  level  officers'  understanding  of  how  space 
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forces  are  acquired,  deployed,  and  maneuvered  in  response  to  the  ground 
situation. 


Sssce 

>  The  scope  of  this  research  is  to: 

1.  Provide  the  Air  War  College  (AWC)  and  the  Air  Command  and 
Staff  College  (ACSC)  an  effective  tool  to  show  the 
importance  of  our  space  assets  with  respect  to  the  ground 
environment. 

2.  Develop  a  model  which  is  useful  for  the  space  "novice"  as 
well  as  experienced  space  personnel. 

3.  Develop  a  model  which  is  user-friendly  and  expandable. 

4.  Show  the  effect  orbit  altitude  and  inclination  have  on 
satellite  missions. 

5.  Show  the  importance  of  careful  long-range  planning  of  our 
space  force  structure. 

6.  Develop  a  game  which  can  model  different  employment 
strategies,  such  as  the  acquisition  and  deployment  of  SDI- 
type  constellations. 

i 

! i 

AssaEBtisps 

The  following  assumptions  were  made  in  this  study: 

1.  The  game  was  designed  for  the  Z-158  micxo-ocnputer  because  of 
the  availability  of  this  system  at  ACSC. 

2.  Actual  data  were  used  for  all  satellites  except  the 
surveillance  and  reconnaissance  systems. 

3.  Fictional  data  were  used  for  the  surveillance  and 
reconnaissance  systems  to  keep  this  effort  unclassified. 
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Introduction 

This  chapter  contains  a  review  of  a  definition  of  a  wargame,  a 
description  of  wargames,  and  the  design  of  wargames.  Also  covered  in 
this  chapter  is  a  brief  description  of  current  efforts  earned  at 
integrating  wargames  into  the  Space  CXirriculum  at  the  AWC  and  ACSC. 
Additionally,  several  models  currently  being  used  at  these  schools  will 
be  described.  Also  covered  in  this  chapter  are  several  low-level  space 
models  which  have  been  developed  by  various  contractors.  Finally,  a 
brief  description  of  the  software  used  in  this  thesis  effort  is 
included. 

Definition  of  a  Wargame 
A  wargame  is 

. .  .any  type  of  warfare  model  or  simulation,  not  involving  actual 
military  forces,  in  which  the  flow  of  events  is  affected  by 
decisions  made  during  the  course  of  the  game  by  players 
representing  the  opposing  sides.  (13:2) 

A  simulation  is  the  approximation  of  a  real  system  by  the  use  of 

mathemati nai  models. 

pegsriEfci<3)  s£  ffagameg 

Wargames  are  used  when  it  is  inpr^ictical  or  impossible  to  use  the 
actual  elements  modeled  in  the  game.  Wargames  are  also  used  when  it 
would  be  too  costly,  either  in  time  or  dollars,  to  use  the  real 
elements.  Finally,  wargames  are  used  because  it  is  easier  to  model 
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changes  in  policy,  strategy,  farce  levels,  or  tactics  in  a  game  than  in 
an  actual  situation  (6:3). 

Historical  References.  Wargaming  in  the  modem  context  was 
introduced  during  the  Napoleonic  era  by  George  Heinrich  Rudolph  Johann 
von  Resswitz,  a  Prussian  artillery  officer  (6:5) .  Wargaming  in  the 
U.S.  began  in  the  1890's  with  the  use  of  wargames  at  the  Naval  war 
College  (6:5). 

Strengths  pf  Waroamjs.  Wargames  can  help  esqplore  questions  of 

strategy,  human  behavior,  and  war-fitting  trends. 

If  one  group  represents  an  assumed  potential  enemy,  the  War  Game 
not  only  provides  training,  but  affords  some  measure  of  the 
capability  of  the  group  to  cope  with  the  enemy  under  the 
conditions  simulated.  (21:1) 

Wargames  enable  users  to  look  at  reality  in  a  different  li#it  and 

can  lead  to  fundamental  changes  in  how  they  see  that  reality.  Ihe 

human  factor  is  key  in  designing  and  playing  a  wargame. 

By  explicitly  allowing  human  decisions,  made  under  the  press  of 
time  and  on  the  basis  of  imperfect  or  incomplete  information,  and 
by  incorporating  randomness  or  "luck,"  wargaming  canes  closer  than 
any  other  farm  of  intellectual  exercise  to  illustrating  the 
dynamics  of  warfare.  (13:10) 

Berla  goes  on  to  say  "as  an  explanatory  device,  wargames  can  be  very 
effective  at  cxmmunicating  analytical  insights  to  appropriate 
decisionmakers"  (14:10) .  Wargames  can  show  these  findings  and  the 
reasons  behind  them  very  clearly.  "In  addition,  decisionmakers 
involved  in  such  games  can  provide  new  insights  that  can  be  explored  in 
subsequent  analyses.  In  this  sense,  wargaming  completes  the  cycle" 
(13:11). 

Weaknesses  of  Wargames.  wargames  are  of  little  use  in  providing 
rigorous,  quantitative  measures  to  "objectively"  prove  or  disprove 
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technical  or  tactical  theories.  Instead  they  can  often  provide  the 
kernel  of  new  theories  which  can  be  tested  with  other  analytical  tools 
(13:10). 

me  purpose  of  wargaming  is  not  to  teach  students  how  to  react  to 
specific  situations,  but  to  make  them  aware  of  the  factors  that 
influence  the  outcome  in  conflict  situations.  By  learning  what  is 
important,  they  will  be  better  prepared  to  develop  the  real 
operational  plans  needed  to  secure  strategic  and  military 
objectives.  (12:25) 

Design  of  Waruames 

There  are  two  reasons  for  designing  a  wargame:  education  and 
research.  Educational  games  focus  on  providing  an  active  learning 
experience  of  their  own,  reinforcing  lessons  taught  in  a  more 
traditional  academic  setting,  or  evaluating  the  extent  to  which 
students  have  learned  such  lessons  (14:3) .  Research  objectives  may 
also  be  divided  into  three  classes:  developing  strategies, 
identifying  issues,  or  building  a  consensus  (14:3) .  This  paper  is 
concerned  with  educational  games. 

There  are  many  different  wargame  design  steps  which  have  been 
described  as  the  "key*  steps  in  designing  wargames.  Ear  the  purpose  of 
this  effort,  these  steps  have  been  broken  up  into  three  broad 
categories:  defining  the  game's  objective  and  how  the  players  will 
interact,  defining  the  audience  of  the  game,  and  deciding  hew 
information  is  relayed  to  the  players.  Also  included  is  a  brief 
analysis  on  the  importance  of  game  validation. 

Objective.  The  first  step  in  designing  a  wargame  is  specifying 
the  objectives  or  goals  of  the  game  (6:236) .  The  end  product  should  be 
defined  before  continuing  on  to  the  other  steps*  After  identifying  the 
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objectives,  it  must  be  decided  how  the  game  design  will  meet  these 
objectives.  The  next  step  is  defining  the  infrastructure  of  the  game: 
collecting,  refining,  and  distilling  the  information  required  to  play 
and  control  the  game  (6:236) .  The  rules  (mechanics)  for  playing  the 
game  are  also  developed  here. 

Audience.  Along  with  the  rules,  the  audience  the  game  is  being 
designed  far,  and  at  what  level  it  will  be  played,  must  be  determined, 
the  audience  for  a  game  can  range  from  the  Joint  Chiefs  of  Staff  to  a 
platoon  leader.  The  amount  of  detail  the  game  provides  will  be  very 
different  depending  on  the  level  of  the  game.  The  level  of  the  game 
can  be  classified  as  one  of  three  types:  strategic,  tactical,  or 
operational.  An  example  of  a  strategic  game  would  be  a  game  in  which 
the  objective  was  defending  the  United  States  against  a  Soviet  ICEM 
attack.  A  tactical  game  would  include  such  scenarios  as  defending  a 
divisional  front  against  a  Soviet  Tank  Corps.  An  operational  game 
could  model  the  effectiveness  of  an  F-15  against  a  Soviet  MIG-23. 

Information  Provided  £e  Players.  Once  the  audience  the  game  is 
being  designed  far  has  been  determined,  the  amount  and  type  of 
information  made  available  to  the  players  must  be  addressed.  The 
designer  must  ensure  that  the  game  provides  a  dear  understanding  of 
whan  the  player  is  emulating  and  what  the  player  is  supposed  to  do.  A 
successful  game  design  will  provide  the  user  with  the  "kind  of 
information  appropriate  for  carrying  out  their  assigned  functions'* 
(14:8) .  This  information  is  broken  up  into  two  categories:  scenario 
and  data  base  (14:10) . 
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The  scenario  is  a  critical  element  of  a  wargame.  The  scenario 
furnishes  the  necessary  background  for  the  players  and  provides  for 
specific  updates  in  the  situation  during  play.  The  scenario  can  also 
influence  the  developing  situation  and  elicit  player  response  to 
specific  items  of  interest  (14:9) .  "By  defining  the  setting  and  scope 
of  player  decisions,  scenarios  can  direct  the  course  of  a  game  into 
very  narrow  or  fairly  broad  channels,  depending  on  the  game's  goals" 
(14:10).  However,  scenarios  must  allow  for  sufficient  freedom  of 
action  within  which  the  game's  objectives  can  be  met.  The  scenario 
should  not  necessarily  prompt  the  user  into  only  one  direction  of 
action.  "A  scenario  should  include  all  essential  information  about  the 
game's  setting  and  subsequent  planned  modifications  to  it,  and  should 
contain  no  superfluous  information"  (14:10).  For  example,  if  a  game  is 
modeling  infantry  tactics  in  the  jungle,  the  inclusion  of  submarine- 
based  cruise  missiles  is  probably  not  needed.  Scenarios  must  also 
provide  for  specific  objectives  and  missions  which  must  be  met  by  the 
players.  A  scenario  must  be  coherent  and  consider  all  elements  of  the 
game,  from  its  objectives,  to  its  mechanics,  to  its  analysis  (14:10) . 

A  scenario  helps  the  pieces  to  fit  together. 

Scenarios  must  be  credible.  Players  should  be  able  to  believe  the 
possibility  of  the  occurrences  set  out  in  the  scenario.  The  scenario 
does  not  have  to  provide  the  only  course  of  action  or  even  the  most 
likely,  just  a  plausible  one.  Scenarios  must  have  "a  plausible  and 
consistent  set  of  conditions  carefully  researched,  without  unexplained 
or  radical  alteration  from  the  present  environment"  (3:12) . 
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In  summary,  a  scenario  bounds  the  problem  as  specified  in  the 
objective  phase  of  the  design.  The  scenario  dictates  how  the  game  will 
progress.  The  scenario  contains  mostly  qualitative  information 
(14:10). 

In  contrast  to  the  scenario,  the  database  contains  quantitative 
information.  This  information  includes  data  concerned  with  such  things 
as  "capabilities  of  forces,  levels  of  logistics,  and  relative 
likelihoods  of  the  occurrence  and  outcome  of  interaction  between 
forces"  (14:14). 

Once  the  information  concerning  the  game  has  been  determined  (the 
scenario  and  database) ,  it  must  be  decided  how  much  of  this  data,  and 
in  what  manner,  is  to  be  revealed  to  the  players.  There  should  always 
be  a  valid  reason  far  a  player  to  be  given  any  data,  and  the 
capability  for  that  player  to  have  received  the  data  must  exist 
(14:22) .  If  there  was  no  logical  mans  far  the  information  to  be 
gathered  or  transmitted,  that  information  should  not  be  provided. 
Depending  on  the  information  available  to  the  players,  games  may  be 
considered  to  be  either  open  or  closed. 

m  an  open  gam,  each  side  knows  everything  about  the  other, 
including  the  position,  status,  and  strength  of  the  opposing  units. 

The  only  thing  not  known  is  the  particular  course  of  action  the 
opponent  will  follow.  Most  good  wargames  attempt  to  style  the  "fog  of 
war"  into  the  design  in  which  not  all  the  information  (correct  or 
otherwise)  is  known  by  the  players. 

This  style  of  gam,  called  a  closed  wargam,  allows  for  only  a 
portion  of  the  information  to  be  known  by  the  players.  This 


information  does  not  have  to  be  completely  accurate,  and  often  this 
data  can  even  be  misleading  or  incorrect,  dausewitz  said,  "many 
intelligence  reports  in  war  are  contradictory;  even  more  are  false,  and 
most  are  uncertain"  (6:236) . 

Validation.  Even  if  a  game  contains  all  the  elements  discussed 
above,  it  is  useless  if  nobody  accepts  the  game  results.  If  there  is 
not  a  logical  procession  of  events  with  sound  data,  the  game  will  not 
be  considered  valid. 

A  major  problem  confronting  the  wargames  analyst  is  the 
compilation  of  data  and  assessing  it  in  terms  of  validity  to 
portray  the  performance  characteristics  expected  in  a  real 
situation  (21:14). 

A  wargame's  results  may  be  unexpected,  but  the  game  must  have  followed 
a  series  of  logical  decisions. 

The  compilation  of  sound  data  is  a  critical  task  far  the  designer. 
"Data  is  most  valid  when  the  conditions  under  which  it  is  obtained  most 
nearly  portray  the  real  world  environment  in  which  the  systems  are 
intended  to  operate"  (21:15) .  However,  the  collection  of  this  type  of 
data  is  often  very  difficult  or  inpossible. 

sacaasg  amrently  Id  iae  afc  MSS  ana  ffg 

There  are  several  wargames  currently  used  by  ACSC  and  the  ARC. 

The  first  game,  called  Big  Stick,  is  a  simulation  of  a  strategic  war 
(2:12) .  The  game  includes  war  planning  and  war  simulation  phases  which 
allow  players  to  procure,  deploy,  and  target  selected  weapon  systems 
(2:12). 

Fast  Stick  is  a  theater  air  war  simulation  used  at  ACSC.  Fast 
Stick  provides  opportunities  for  the  player  to  plan  and  conduct 
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"missions  based  on  their  concept  of  operations  and  target  priorities" 
(2:12) .  It  is  basically  a  tactical  game  'which  allows  students  to 
"apply  techniques  to  determine  weapon  effectiveness  and  select  strike 
flight  composition  to  aooonplish  a  desired  damage  expectancy’1  (2:12) . 

The  Theater  Wjg  Exercise  (TWX)  model  is  used  at  AWC.  It  is  a  two- 
sided  theater-level  game  which  uses  "computerized  air  and  land  battle 
simulations  to  assess  the  inpact  of  player  resource  allocation 
decisions  in  a  MAID  central  region  conflict  scenario"  (2:12) .  TWX 
provides  the  student  with  "insights  into  decision  processes  which 
relate  principles  of  war,  warfighting  systems,  and  force  employment 
decision  to  military  objectives  of  war"  (2:12) . 

The  Space  Resource  Allocation  Exercise  (SRAE)  was  developed  at 
ACSC.  It  is  a  board  game  which  models  the  acquisition  and  deployment 
of  U.S.  space  systems.  It  was  developed  as  a  tool  far  teaching  basic 
space  concepts  (20:1) .  SRAE  was  designed  as  a  baseline  far  a  "full 
scale  theater  or  strategic  wargame  with  emphasis  on  space"  (20:1) . 

SRAE  was  used  as  the  baseline  in  the  development  of  ADAM. 

current  Effort? 

There  is  an  on-going  effort  at  ACSC  to  improve  the  quality  of 
wargames  currently  used  at  ACSC  and  the  AWC.  Specifically  the  goal  of 
this  project  is  to  determine  how  to  integrate  space  into  wargames.  A 
Space  wargaming  elective  course  was  given  at  ACSC  in  the  Fall  of  1986 
to  develop  methods  to  reach  this  goal  (22:iii) .  Efforts  developed  in 
this  oourse  included  a  study  of  information  and  displays  required  for  a 
space  wargame,  a  study  of  the  use  of  wargames  to  facilitate  the 
instruction  of  the  Space  curriculum  Fhase  at  ACSC,  and  a  study  of 
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possible  Space  Buies  of  Engagement  (22:34) .  The  Space  Resource 
Allocation  Exercise  was  also  developed  in  this  course. 

lhe  Air  Force  bargaining  Center  (AFWC)  is  also  involved  in 
improving  the  quality  of  wargames  at  the  War  Colleges.  The  AFWC  was 
the  result  of  the  Ccemand  Readiness  Exercise  System  (CKES)  program,  and 
was  developed  to  put  "more  war  in  the  war  colleges”  (19: — ) . 

Ihe  Air  Force  bargaining  Center  has  the  BCM  Corporation  under 
contract  to  design  several  new  computer  wargames  (2:14) .  These  new 
games  will  replace  the  wargames  currently  used  at  the  AWC  and  ACSC. 

The  games  are  being  designed  so  that  they  can  be  modified  by  the  AFWC 
(2:14) .  This  will  ensure  the  games  are  kept  current  and  updated  as 
required. 

Contractor  Models 

There  are  hundreds  of  wargames  currently  in  use  which  model 
different  aspects  of  ground,  air,  or  naval  tactics.  There  is  a  much 
smaller  set  which  models  space  forces  or  space  tactics.  However,  there 
is  not  a  game  currently  in  use  which  effectively  incorporates  the 
effect  of  space  forces  on  the  ground  force.  What  follows  is  a  brief 
description  of  three  models  which  deal  exclusively  with  space  assets. 

General  Electric  Octpany  has  developed  a  model  called  SSSA  (System 
Survivability  Simulation) .  It  simulates  threats  against  satellite 
constellations  from  ASATs  or  GBIs  (Ground-Based  lasers)  (11: — ) .  The 
model  provides  a  means  of  developing  the  appropriate  countermeasures 
including  detailed  mission  and  threat  analysis,  system  design, 
evaluation  of  system  performance,  and  risk  assessment  in  the  projected 
threat  environment  (11: — ) .  SSSA  simulates  the  engagement  between 
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multiple  satellites  and  direct  ascent  and  orbital  ASATs.  The  model 
also  simulates  the  prompt  radiation  effects  caused  by  the  detonation  of 
a  nuclear  device  in  space  and  the  engagement  between  an  enemy  space- 
based  laser  and  a  satellite  (11: — ) . 

The  Space  Applications  International  Corporation  has  developed  Idle 
Space  Defense  Simulator  (SEASIM)  (17:1) .  SPASIM  models  how  Cheyenne 
Mountain  personnel  perform  some  of  their  space  related  tasks.  These 
tasks  include:  assessing  foreign  launches,  detecting  and  processing 
satellite  maneuvers,  and  detecting  and  processing  a  satellite  breakup. 
SEASIM  also  includes  procedures  which  model  space  launches,  satellites, 
Eed  co-orbital  ASATs,  Blue  sensors,  and  Blue  ASATs  (17:4) . 

The  Space  Farces  Engagement  Model  (SEEM)  is  currently  under 
development  by  Ford  Aerospace  and  Omraunications  Corporation.  SEEM  is 
scheduled  far  delivery  to  Air  Force  Space  Ccnmand  in  April  1988  (5:2) . 
The  objective  is  to  develop  an  accurate  simulation  of  a  two-sided  space 
conflict  (5:3) .  SFEM  will  model  the  major  components  of  the  US  and 
Soviet  space  control  networks,  including  the  space-based  assets  and  the 
ground-based  support  assets  (5:3). 

The  model  is  being  developed  in  two  phases.  Ehase  one  models  a 
limited  space  conflict  in  which  the  Eed  force  launches  a  preemptive 
strike  against  Blue  satellites  (5:3) .  The  Blue  farce  has  a  defensive 
capability,  but  no  ASAT  (Anti-Satellite)  weapons  (5:3) .  This  defensive 
capability  is  represented  by  DSATs  (Defensive  Satellites) .  The  role 
of  the  DSAT  is  to  protect  high  value  mission  satellites  against  an  ASAT 
attack.  Ehase  one  should  provide  far  an  optimized  attack  strategy  and 
a  corresponding  optimized  defensive  response  (5:8) . 
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Ihase  two  will  model  a  full  two  sided  attack  and  defense  scenario 
(5:11) .  Either  side  may  initiate  the  conflict  in  Phase  two.  However, 
in  this  phase,  the  defender  may  retaliate  against  the  aggressor  with 
ASAT  weapons  of  their  own  (5:11) .  Both  sides  will  also  have  the 
capability  to  reconstitute  their  affected  constellations.  Phase  two 
should  accommodate  a  variety  of  offensive  and  defensive  objectives, 
strategies,  and  tactics  (5:11) . 

spftaare  iz§s3  ip  Shis  Effort 

ADAM  consists  of  approximately  5,000  lines  of  Turbo  Pascal  code. 
Turbo  Pascal  provides  a  simple,  user-friendly  programing  environment 
based  on  the  original  Pascal  language  (8:1) .  Turbo  Pascal  is  a 
trademark  of  Boreland  International,  Inc. 

SATRAK  (Satellite  Tracking)  software  was  developed  by  Teledyne 
Brown  Engineering  (TEE)  as  an  integrated  toolbox  in  the  area  of 
astrodynamics.  SATRAK  contains  many  different  routines,  but  the  ones 
used  for  this  effort  were  the  ORBIT  and  IRAK  procedures.  ORBIT 
produces  a  three-dimensional  image  of  desired  orbit  types,  and  TRAK 
generates  the  data  points  for  a  ground  track  for  a  given  satellite. 

SATRAK  is  designed  to  run  on  an  IEM-PC  ocrpatible  system  operating 
under  MS-DOS  2.0  or  higher  (18:3) .  SATRAK  was  developed  under  contract 
for  Air  Force  Space  Command,  directorate  of  Space  Systems  and 
Activities  (COS) .  The  initial  version  1.0,  was  delivered  in  September 
1986.  The  original  oontract  was  renewed,  and  TEE  continued  working  on 
the  package.  They  delivered  version  2.5  in  June  1987. 
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In  the  past,  wargames  have  proved  to  be  a  valuable  tool  in 
developing  doctrine  and  strategy.  The  ability  of  wargames  to  explore 
future  strategies  and  doctrines  is  especially  important  for  space 
systems. 

Strategies  and  doctrines  for  space  defense  and  future  space 
engagements  are  constrained  by  both  the  dearth  of  practical 
experience  and  the  tremendous  costs  involved  with  exercising 
such  capabilities  (22:2) . 

By  definition,  doctrine  is  gathered  from  either  experience  or  theory. 

We  do  not  have  experience  with  space  systems  in  a  conflict  situation; 
therefore,  we  must  rely  primarily  on  theory  provided  by  wargaming  if  we 
are  to  develop  an  effective  space  doctrine. 
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Introduction 

This  chapter  contains  a  discussion  of  the  similarities  between  the 
current  space  force  and  the  early  development  of  the  airplane.  The 
applicable  learning  objectives  of  the  Space  Qmriculum  Phase  at  ACSC 
and  AWC  are  also  presented.  The  Space  Hiase  at  ACSC  and  AWC  was 
developed  to  enhance  middle  to  senior  level  officers'  knowledge  of 
space  assets  and  how  they  interact  with  ground  forces  (1:1) .  Also 
covered  in  this  chapter  are  research  objectives  this  effort 
incorporated,  and  the  interface  between  this  model  and  the  SA1RAK 
software.  Finally,  a  brief  description  of  the  players  and  their  roles 
in  this  game  is  included. 

similarities  fisteasp  Air  and  aaaas  Eases 

The  current  farce  structure  in  space  closely  resembles  the 
airplane  and  its  missions  around  1914.  In  the  beginning  of  World  War 
I,  planes  were  used  to  direct  artillery  fire  and  for  troop  spotting, 
missions  which  balloons  had  performed  far  about  a  century.  Initially 
there  was  no  thought  of  arming  the  airplane.  The  airplane  was  also 
used  to  deliver  messages  to  and  from  the  battlefield  ccranander. 

As  the  war  progressed,  so  did  the  uses  of  the  airplane.  Soon  the 
early  pilots  began  carrying  pistols  and  rifles  to  engage  enemy  pilots, 
later,  the  weapons  turned  into  machine  guns  and  boobs.  Thai  came  the 
need  for  specialized  planes  designed  for  specific  missions.  Fighter 
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planes,  reconnaissance  planes,  and  bombers  were  developed  as  air  power 
slowly  matured. 


As  World  War  I  ended,  a  new  form  of  warfare  was  evolving  from 
these  glorified  balloons  and  messengers.  Strategic  boobing  was  in  its 
infancy  by  the  end  of  the  war  and  developed  during  the  following  years. 
Even  though  the  airplane  had  proved  itself  during  the  war,  many  people 
did  not  think  the  airplane  would  beocme  very  important.  It  took  men  of 
vision  like  Mitchell  and  Douhet  to  further  the  cause  of  the  airplane. 

"'There  are  many  parallels  between  airpower  in  its  infancy  and 
spaoepower  today"  (2:21) .  Like  the  airplane,  two  of  the  first  missions 
performed  by  space  forces  were  reconnaissance  and  cxramjnicati.cn . 
"Airpower  was  initially  subservient  to  ground  and  naval  forces  just  as 
spaoepower  is  now  subordinated  to  air  and  naval  farces  ..."  (2:21). 

Just  as  airpower  began  with  airplanes  shooting  other  airplanes,  it 
appears  likely  that  the  first  offensive  capability  developed  by 
satellites  will  be  the  capability  to  kill  other  satellites  (2:21) - 
These  similarities  between  the  early  airplane  and  today's  space 
force  should  not  be  overlooked,  careful  studying  of  these  parallels 
may  provide  critical  insights  into  developing  an  effective  space 
doctrine. 

Learning  -Qkjegfciygg  at  MSS  aa*  Si S 

The  space  phase  managers  for  ACSC  and  AWC  were  interviewed  and 
asked  to  identify  the  objectives  which  oculd  be  supported  by  the  use  of 
a  wargame  or  cctputer-aided  instruction  (2:3) .  The  ACSC  and  AWC 
objectives  are  prioritized  and  listed  in  Tables  I  and  U,  respectively. 
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Table  I 

List  of  ACSC  Space  Curriculum  Objectives  Which  can  be 
Supported  by  Wargames  or  Conputer-Aided  Instruction  (15: — ) 

1.  Qanoprehend  how  current  and  planned  (near-term)  US  military 
space  systans  can  enhance  the  effectiveness  of  our  military 
forces. 

2.  Ccnprehend  how  characteristics  of  the  space  medium  influence 
the  characteristics  of  space  farces. 

3.  Ccnprehend  how  application  of  the  principles  of  war  must  be 
tailored  to  the  space  environment. 

4.  Ccnprehend  that  Soviet  space  systems  threaten  US  terrestrial 
farces  and  our  ability  to  operate  freely  in  space. 

5.  Ccnprehend  specific  strategies  to  achieve  space  systems 
survivability. 

6.  Ccnprehend  the  potential  role  and  employment  of  the  US  anti¬ 
satellite. 

7.  Knew  the  relationship  of  Soviet  military  space  doctrine  to 
Soviet  military  doctrine. 

8.  Ccnprehend  the  combat  functions  of  space  control  and  force 
application. 

9.  Ccnprehend  how  US  space  policy  and  international  space  law 
and  treaties  constrain  military  activities  in  space. 

10.  Comprehend  existing  and  planned  (near-term)  space  support 
capabilities  for  launch  and  on-orbit  control  of  DOD 
spacecraft. 

11.  Comprehend  general  techniques  which  can  be  employed  to  make 
space  systems  survivable. 

12.  Show  the  basic  tenets  of  US  Space  policy  and  international 
space  law  and  treaties. 
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Table  n 

List  of  MtC  Space  Curriculum  Objectives  Vtdch  can  be 
Supported  by  Wargames  or  Computer-Aided  Instruction  (16: — ) 

1.  To  comprehend  the  role  of  critical  space  systems  in  support 
of  operational  military  farces  and  how  commanders  obtain 
operational  support  from  these  systems. 

2.  To  comprehend  the  value  and  utility  of  space  systems  to 
enhance  the  effectiveness  of  the  US  Army,  Navy,  Marine  Corps, 
and  Air  Force. 

3.  To  comprehend  the  capabilities  and  utility  of  naval  space- 
based  systems  and  the  operational  support  available  from 
these  systems  to  military  commander^. 

4.  To  comprehend  existing  and  planned  space  support 
capabilities  for  launch  and  on-orbit  spacecraft  command  and 
control  operations. 

5.  To  comprehend  the  operational  concept  for  achieving  military 
superiority  and  the  role  arid  employment  of  the  US  anti- 
satellite  program. 

6.  To  comprehend  the  Scrviet  Union's  current  and  projected 
military  capabilities  and  their  implications  for  the  global 
balance  of  power. 

7.  To  know  the  organizational  structure  of  the  new  DOD  unified 
Space  command  and  to  comprehend  how  the  unified  Space  command 
assigns  priorities  and  allocates  space  assets  to  meet 
operational  requirement  of  US  military  farces. 

8.  To  comprehend  US  space  policy  and  international  space  law  and 
some  of  the  potential  moral  and  legal  constraints  on  space 
activities. 


Research  Cfriestlveg 


'•Unless  the  future  Air  Force  leaders  have  an  appreciation  of  space 
assets,  their  capabilities  cannot  be  fully  exploited  and  the  impact  of 
their  loss  or  degradation  understood"  (2:7) .  The  controllers  of  space 
assets  most  understand  the  concepts  involved  in  space  operations. 

Since  Sputnik  I  was  launched  30  years  ago,  the  number  and 
complexity  of  the  satellite  systems  have  grown;  however,  their  primary 
mission  has  remained  the  same.  That  mission  is  support  of  the 
terrestrial  forces.  Therefore,  a  space  wargame  is  not  complete  without 
considering  the  effect  the  space  assets  have  on  the  terrestrial  forces. 
The  research  objectives  far  this  study  are  listed  below. 

Characteristics  g£  Space.  Determine  the  satellite  type  and 
orbital  characteristics  necessary  to  perform  a  given  mission.  The 
players  should  discover  basic  orbital  mechanics  to  include  regression 
of  the  ascending  node,  the  effect  inclination  has  on  the  ground 


coverage,  and  the  cost  involved  in  maneuvering  satellites. 


I! 


don  with  Ground  Forces.  Recognize  hew  various  space 


systems  can  influence  the  ground  farces.  Determine  the  critical  space 


systems  in  a  given  conflict  situation. 


Ground  Support.  Identify  the  required  ground  support  necessary  to 
launch  and  maintain  a  satellite.  Recognize  the  importance  of  launch 
location  (latitude)  with  regard  to  orbit  inclination. 

Survivability c  Recognize  the  added  capability  offered  by 
survivability  enhancements.  Recognize  the  additional  cost  and  weight 
penalties  incurred  by  incorporating  survivability  enhancements  into 
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satellites.  Determine  the  best  examination  of  survivability 
enhancements  required  to  defend  against  a  possible  enemy  threat. 

acquisition  Cycle.  Recognize  the  long  lead  times  associated  with 
space  systems.  Recognize  the  importance  of  defining  system 
requirements  at  the  beginning  of  the  acquisition  cycle.  Recognize  the 
delays  caused  by  late  requirements,  longer  development  time  and  more 
dollars. 

Force  Structure.  Given  a  budget,  a  requirements  list,  and  a  list 
of  available  resources,  the  players  should  be  able  to  design  an 
effective  farce  structure.  Determine  a  proper  mix  of  lew  and  hi<£i 
technologically  advanced  systems.  Recognize  the  iapartanoe  of  a 
balanced  fleet  of  launchers. 

SA1KAK  Interface 

To  enable  players  to  better  visualize  the  satel  lite  orbits,  the 
SAJRAK  software  will  be  used  to  graphically  display  the  satellite  orbit 
traces.  The  seminar  roars  at  the  AWC  have  multiple  Z-158  eenputers 
available;  therefore,  one  system  will  be  used  to  play  this  game  and 
another  will  run  the  SATRAK  software.  The  game  controller  will  perform 
the  necessary  commands  to  enable  SATRAK  to  display  the  orbits. 

Players 

The  game  is  designed  for  multiple  players  in  a  seminar  type 
environment.  The  exact  number  and  responsibilities  can  be  modified  as 
necessary;  however,  there  is  a  required  subset  of  players  which  should 
be  present  to  play  the  game.  This  subset  is  a  modification  of  the 


player  positions  used  in  the  SRAE  game  (20:14) .  Hie  players  and  their 
responsibilities  are  listed  in  Table  HI. 


Table  HI 


Player  Positions 


Elarer 

Chairman,  Joint 
Chiefs  of  Staff 

&NCSPACE 

Space  Division 


tesporeifrilife 
Overall  Commander 


Determines  operational 
requirements  and  orbited 
requirements 

Responsible  far  system  R&D 
and  production  phases 


NASA  Ensures  the  necessary 

leaiixamnts  as 
dictated  in  the  scenario  are 
included  in  operational 
decisions 


NC2NC 

TdNC 

Controller 


Strategic  Warfare  Requirements 

Theater  Warfare  Requirements 

Reads  scenario,  interprets 
rules,  and  controls  the 
SAH3AK  interface 


Suffmary 

"A  lack  of  education  about  space  and  its  potential  has  hindered 
the  development  of  military  space  systems."  (2:8)  Because  of  the 
great  potential  for  a  conflict  in  space,  the  US  must  be  prepared  for 
it.  Therefore,  the  US  must  develop  a  space-warfighting  doctrine. 
Schools  like  ACSC  and  AWC  are  obvious  places  for  this  development. 
Space  has  long  been  recognized  as  an  integral  part  of  the  national 
defense;  however,  very  little  time  is  allotted  for  teaching  space  and 
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its  concepts  at  these  two  schools  (16s — ) .  Therefore,  it  is  imperative 
that  the  students  get  as  such  out  of  the  available  time  as  possible. 
Tools  must  be  designed  that  teach  space  concepts  quickly  and 
effectively.  ADAM  is  such  a  tool. 


ADAM  is  a  simulation  of  how  US  military  space  systems  are 
acquired,  deployed  and  maneuvered  to  support  the  land,  sea,  and  cdr- 
based  forces.  This  chapter  will  cover  the  game  design  and  the 
rationale  behind  certain  design  concepts.  This  chapter  also  discusses 
the  input  required  from  the  players  during  the  game.  The  SRAE  model 
designed  at  ACSC  was  used  as  the  baseline  far  this  effort. 

Game  Design 

ADAM  is  designed  to  be  played  with  the  current  (1987)  US  Space 
Force  or  a  user  generated  database.  There  are  ten  one-year  turns  in 
the  game.  The  game  objective  is  for  the  players  to  Beet  and  maintain 
as  many  mission  requirements  as  possible.  It  is  not  possible  to  attain 
all  the  requirements;  therefore,  the  players  Bust  determine  which  of 
the  requirements  are  most  important  and  concentrate  on  meeting  these 
demands. 

Before  the  game  begins,  the  players  are  provided  with  a  Resource 
Catalog  and  a  Requirements  Catalog.  The  Requirements  catalog  was 
developed  at  ACSC  for  use  in  the  SRAE  game.  The  Resource  catalog 
developed  for  the  SRAE  game  was  modified  for  this  effort.  These 
catalogs  are  listed  in  appendices  A  and  B,  respectively. 

The  Resource  Catalog  contains  information  on  the  different  systems 
in  the  game.  The  different  system  types  are:  satellites,  ground 


wwmzwKwmmK 


mmmr 


1W1 


nmn 


support  elements,  launch  pads,  and  launch  vehicles,  lhe  following 
satellite  missions  are  modeled: 

1)  Ccmnunicaticn 

2)  Meteorology 

3)  Navigation 

4)  Reconnaissance 

5)  Surveillance 

6)  Offensive  Weapons 

7)  Defensive  Weapons 

The  information  in  the  Resource  catalog  includes  details  such  as 
system  weight,  lifetime,  research  and  development  cost,  acquisition 
cost,  and  other  system  pertinent  data,  lhe  systems  are  organized  by 
mission  type  (OCMf,  NAV,  etc.)  and  are  arranged  from  low  to  high 
technology,  lhe  database  is  developed  from  the  Resource  catalog,  lhe 
database  may  be  modified  if  specific  learning  objectives  are  to  be 
taught,  it  would  be  beneficial  to  the  user  to  develop  a  library  of 
databases.  Instructions  on  hew  to  create  a  database  are  in  the  User's 
Guide. 

lhe  Requirements  Catalog  contains  lists  of  prioritized 
requirements.  Each  list  is  divided  into  the  mission  area  of  satellite 
systems,  ground  support,  and  launch  systems,  lhe  use  of  the 
Requirements  Catalog  is  optional,  and  is  designed  for  use  by  players 
unfamiliar  with  space  system  requirements.  Civilian/NASA  requirements 
of  DOD  systems  are  also  included,  lhe  Requirements  catalog  in  Appendix 
B  was  developed  at  ACSC,  and  was  designed  for  use  with  a  database  which 
reflected  the  space  structure  of  the  1960's.  If  this  catalog  is  used 
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with  the  current  space  structure,  the  players  will  notice  sane 
requirements  have  already  been  met.  The  players  should  ignore  these 
requirements  and  concentrate  on  meeting  the  unfilled  requirements.  The 
Requirements  catalog  may  be  replaced  by  a  user  generated  catalog  if 
specific  scenarios  are  to  be  studied. 

Game  Plav 

ADAM  contains  ten  one-year  turns.  Each  turn  contains  the 
following  phases: 

Turn  Sequence 

1)  Read  Scenario  Phase  (date  by  Controller) 

2)  Database  Update  Riase  (done  by  Ocnputer) 

3)  Acquisition  Phase 

4)  Assign  Ground  Support  Phase 

5)  Deployment  Riase 

6)  Scoring  Riase  (done  by  Controller) 

The  players  repeat  these  steps  through  turn  10  or  the  Game  Controller 
Ay-ide**  to  stop  the  game. 

Read  Scenario  Riase.  At  the  beginning  of  each  turn,  the  Game 
Controller  gives  the  players  the  scenario  for  that  turn.  The  scenario 
describes  conditions  the  players  must  abide  by  for  that  turn.  The 
scenario  includes  the  space  budget  provided  by  Congress  for  the  turn,  a 
US  Space  Policy  Update,  and  an  Intelligence  Report  of  probable  Soviet 
space  activities.  The  Policy  Update  may  restrict  deployment  of 
particular  systems  or  may  place  additional  demands  on  the  military 
launch  system  to  meet  certain  CiviliaxyNASA  demands.  The  Intelligence 
Report  provides  information  on  space  activities  by  other  countries  such 
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as  the  possible  deployment  of  new  weapons.  The  Scenario  developed  for 
the  SRAE  game  at  ACSC  was  modified  for  this  effort.  The  Scenario  is 
listed  in  Appendix  C. 

Database  update  Phase.  In  this  phase,  the  ocnputer  advances  the 
status  of  units  currently  being  upgraded.  Each  unit  in  the  database 
contains  an  update  field  that  maintains  the  time  remaining  to  complete 
the  next  phase  in  the  acquisition  cycle.  If  a  unit  is  currently  being 
ipdated,  the  update  field  is  decreased  by  one  in  this  phase.  If  the 
update  requires  two  years,  the  update  field  will  be  changed  from  a  "2” 
to  a  H1N.  This  indicates  that  the  update  will  occur  the  following 
year.  If  the  update  requires  only  one  year,  the  update  field  will  be 
changed  from  a  "1"  to  a  N0M,  and  the  unit  will  advance  to  the  next 
stage.  For  example,  during  the  Acquisition  Ebase  of  year  1988,  the 
player  decides  to  begin  Research  on  the  M3XSTAR  1,  tail  number  1, 
Ocmnunication  Satellite.  The  current  status  of  MHSTAR  l  is  Feasible, 
so  Research  may  begin  on  the  system.  The  Research  cost  far  MUSTAR  1 
($200  Million)  is  deducted  from  the  budget,  and  the  ocnputer  sets  the 
update  field  of  that  system  to  "2".  This  indicates  the  unit  will 
ocnplete  the  research  phase  in  two  years.  During  the  Update  Database 
ihase  of  year  1989,  the  ocnputer  changes  the  update  field  to  a  "1", 
indicating  the  unit  has  one  year  of  research  remaining.  Finally,  the 
research  far  MUSTAR  1,  tail  number  1,  is  completed  in  the  Database 
Update  lhase  of  year  1990.  The  unit  is  moved  to  the  Research  column, 
and  the  update  field  is  set  to  "O",  indicating  the  upgrade  is 
oocpleted. 
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The  computer  also  updates  the  budget  with  the  current  year  figures 
in  the  Database  Update  Ehase.  No  amount  of  the  budget  may  be  carried 
over  from  one  turn  to  the  next,  so  players  should  spend  the  entire 
budget  every  turn. 

Next,  the  ocnputer  performs  a  system  failure  check  for  all  active 
satellites.  The  probability  of  failure  for  a  satellite  is  a  constant 
.3%  per  year  until  the  satellite  is  two  years  from  its  expected 
lifetime.  At  this  time,  the  probability  of  a  satellite  failure  is  8%. 
There  is  a  58%  probability  of  system  failure  at  the  end  of  its  expected 
lifetime  (20:40) .  The  program  automatically  "kills”  a  satellite  if  it 
survives  one  year  past  its  expected  lifetime.  These  figures  are 
approximations  and  a  more  realistic  approach  to  satellite  reliability 
is  a  topic  far  further  improvement. 

During  this  phase,  the  oonputer  also  determines  the  current 
Technology  (Tech)  Level  of  the  Defense  Industry  in  each  mission  area 
(Communication,  Navigation,  etc.) .  The  current  Tech  Level  greatly 
impacts  the  space  force  structure.  It  determines  the  feasibility  of  a 
satellite  system.  A  feasible  system  indicates  technology  has  reached 
a  sufficient  level  to  begin  research  cn  that  system.  For  example,  the 
MTLSTAR  2  satellite  system  is  not  feasible  until  the  necessary 
technology  has  been  developed  by  the  MILSTAR  l  satellite  system.  At 
least  cne  MILSTAR  l  satellite  must  complete  its  development  phase, 
before  the  MILSTAR  2  system  is  feasible. 

With  a  few  exceptions,  the  Research  and  Development  for  systems 
listed  higher  up  in  the  Resource  catalog  must  be  accomplished  before 
the  more  advanced  systems  may  be  acquired. 
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The  last  step  the  ocnputer  performs  in  this  phase  is  assessing  the 
Operational  and  Maintenance  (O&M)  costs  for  the  active  ground  support 
and  launch  pad  facilities. 

Acquisition  ftase.  in  this  phase  the  players  give  orders  for 
units  to  begin  the  next  Milestone  of  the  acquisition  cycle.  The 
Satellite  Acquisition  Cycle  Board  (ACB)  Screen  lists  all  the 
satellites,  support  elements,  launch  pads,  and  reusable/recyclable 
launcher  units  currently  in  the  acquisition  pipeline.  The  status 
headings  on  the  ACB  Screen  (Feasible,  Research,  Development,  and 
Production)  roughly  correspond  to  the  Acquisition  Milestones  0,1,2,  and 
3  as  defined  by  DOD  Directive  5000.1  (4:5) . 

Once  the  first  copy  of  a  particular  system  has  ocnpleted  the 
Development  phase,  additional  copies  skip  the  Research  phase  and  go 
directly  from  Feasible  to  Development.  When  a  unit  is  marked  with  a 
particular  status,  it  is  considered  to  be  at  the  end  of  that  phase. 

For  example,  Ocmstar,  tail  number  1,  has  a  current  status  of  Research. 
This  indicates  that  the  Research  has  been  cxanpleted,  and  the  satellite 
is  waiting  to  proceed  into  the  Development  phase. 

The  player  indicates  which  unit  to  update  by  entering  its  system 
name  and  tail  number.  The  Check  Budget  procedure  is  then  called  to 
determine  if  the  purchase  is  within  the  remaining  budget.  There  are 
two  costs  associated  with  each  unit  on  the  ACB.  Thry  are  the  Research 
and  Development  (R&D)  costs  and  the  Production  costs.  The  R&D  cost  is 
split  between  the  two  R&D  stages.  For  example,  the  R&D  cost  for  a 
MUSTAR  1  Satellite  is  $400  Million.  This  means  Research  for  a  MXXSTAR 
1  Satellite  costs  $200  Million,  and  the  price  of  Development  is  $200 
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Million.  The  Production  cost  is  the  cost  involved  with  producing  the 
unit.  Check  Budget  determines  the  cost  for  the  updated  status  and 
compares  it  against  the  remaining  budget.  If  the  upgrade  is  within  the 
remaining  budget,  the  associated  upgrade  cost  is  subtracted  from  the 
current  year's  budget.  An  asterisk  is  put  next  to  the  unit's  name  on 
the  ACB  Screen  to  indicate  that  the  unit  is  currently  being  upgraded. 

If  the  upgrade  exceeds  the  budget,  the  system  returns  a  message  to  that 
effect,  and  the  unit  is  not  updated.  The  player  may  update  as  many 
units  as  the  budget  allows  for. 

The  ACB  Screen  will  only  show  units  currently  in  the  acquisition 
pipeline.  It  will  not  show  satellites  ready  for  launch  or  ones  that 
have  already  been  deployed.  The  player  may  add  copies  of  a  unit  which 
is  on  the  ACB  Screen  or  one  that  has  already  been  deployed.  This  copy 
will  be  given  the  next  available  tail  number  of  that  system  type.  For 
example,  four  D5CS  II  satellites  have  been  deployed  and  there  are  no 
more  in  the  acquisition  pipeline.  To  add  another  DSCS  II  satellite, 
the  players  enter  the  name  of  the  satellite  ("DSCS  II")  and  then  a  tail 
number  of  "0".  The  program  will  then  put  a  DSCS  II,  toil  number  5,  on 
the  ACB  screen.  The  new  unit  is  placed  in  the  Development  stage 
because  research  has  been  completed  for  tte  DSCS  H  system. 

When  development  begins  on  a  launch  Pad,  the  program  will  ask  the 
player  where  to  construct  the  Pad.  The  player  has  two  choices: 
Vandenberg  or  Cape  Canaveral.  Once  the  location  is  set,  it  cannot  be 
changed. 
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The  expendable  launcher  units  are  handled  differently.  Each 
expendable  launcher  is  not  uniquely  identified  with  a  name  and  a  tail 
number.  Instead,  each  expendable  launcher  type  (CELIA,  TITAN,  etc.) 
has  cne  name  and  tail  number  associated  with  it.  For  example,  all  the 
Delta  launchers  are  identified  by  Delta,  tail  number  1.  This  entry 
tracks  the  number  of  launchers  in  each  stage  (Development,  Production, 
etc.) .  There  are  tvro  reasons  for  this  design:  the  large  number  of 
launchers  and  the  "sameness”  within  each  launcher  type.  If  they  were 
uniquely  identified,  the  large  number  of  launchers  would  require  too 
much  space  to  be  easily  displayed  on  the  ACB  Screen.  The  second  reason 
launchers  are  uniquely  handled  is  that  within  each  launcher  class, 
(DELIA,  TITAN,  etc.)  the  launcher  characteristics  are  identical.  For 
example,  each  Atlas  launcher  can  lift  the  same  amount  to  orbit. 

The  reusable  launcher  units  are  handled  like  all  the  other  systems 
because  the  computer  must  keep  trade  of  the  remaining  launches  of  each 
unit. 

The  expendable  launchers  have  a  different  acquisition  cycle  than 
the  other  units  in  the  game.  The  necessary  technology  has  already  been 
developed  for  all  the  expendable  launchers;  therefore,  they  skip  the 
Feasible  and  Research  phases.  The  Launcher  ACS  Screen  displays  the 
name  and  number  of  all  the  expendable  launchers  currently  in  the 
Development  and  Production  Rase.  It  also  shows  the  number  which  are 
currently  available  to  launch.  As  an  aid  to  the  player,  the  screen 
also  shows  the  number  of  launchers  currently  in  transition  between 
phases. 
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When  the  player  brings  up  the  launcher  ACB  Screen,  the  computer 
asks  for  the  type  of  missile  (AXIAS,  r-iiXIEA  etc.)  to  be  upgraded  from 
the  Develqanent  stage.  The  computer  also  asks  for  the  number  of 
missiles  to  be  upgraded.  The  computer  ensures  the  upgrade  is 
affordable.  The  Development  column  is  the  only  phase  the  player  can 
modify..  Each  year,  the  computer  automatically  updates  the  other 
columns  (Dev-Erod  to  Production  to  Prod-Active  to  Active) .  At  the 
player's  request,  the  Game  Controller  may  add  additional  launchers  into 
the  acquisition  pipeline  as  the  game  progresses. 

In  the  Acquisition  Hiase,  the  players  can  modify  satellites  t~ 
incorporate  survivability  features.  The  player  indicates  which  unit  to 
modify,  and  the  Add  Survivability  procedure  returns  a  list  of 
survivability  modifications.  These  survivability  features  and 
associated  costs  are  listed  in  Table  IV.  The  costs  are  a  function  of 
the  unit  being  modified.  This  screen  shows  the  name  of  the  satellite 
being  modified,  the  current  mass,  the  remaining  year's  budget,  and  the 
seven  different  survivability  factors  which  may  be  added  to  the 
satellite.  The  cost  of  each  modification  is  also  listed  on  the  screen. 

Seme  modifications  (5,5,  and  7)  increase  the  moss  of  the 
satellite.  laser/Nuclear  hardening  with  15  Day  autonomy  increases  the 
satellite  mass  by  20%.  Laser/Nuclear  hardening  with  180  Day  autonomy 
increases  the  satellite  mass  by  30%.  Also,  each  maneuver  added  to  a 
satellite  increases  its  mass  by  30%.  If  the  player  picks  one  of  these 
modifications,  the  computer  displays  the  modified  mass  and  requests 
confirmation. 
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Table  IV 

Survivability  Features 


Antl-Jan^iuclear  protection  on 

data/<xntrol  links  .3  *  RED 

Lew  Anti-Jan^nuclear  protection  on 

OCM  links  .1  *  RED 

Medium  Anti-Jany'nuclear  protection  on 

OCM  links  .2  *  RED 

High  AntinJas^nuclear  protection  on  OCM 

links  .3  *  RED 

laser/nuclear  hardening  and  15  Day 

autonomy  .3  *  Prod 

Laser/nuclear  hardening  and  180  Day 

autonomy  2  *  Prod 

Satellite  maneuverability  (Price  is  per 

maneuver)  .3  *  Prod 

The  players  are  allowed  to  change  their  minds  about  the 
modification.  By  entering  the  same  modification  number,  the  computer 
will  remove  that  survivability  aspect.  It  will  also  update  the  budget 
and  satellite  mass  accordingly.  There  are  seme  satellites  which  cannot 
be  modified  because  of  the  satellite  system  design.  These  units  have 
an  "X"  in  their  first  survivability  attribute.  The  program  will  not 
allow  these  satellites  to  be  modified.  There  are  also  seme  satellites 
which  have  survivability  features  built  into  the  design. 

The  cost  of  these  added  features  most  also  be  within  the  remaining 
budget.  It  is  important  to  recognize  the  added  weight  these  measures 
can  add  to  the  system.  If  too  many  features  are  added,  the  system  may 
become  too  heavy  to  launch. 


34 


There  are  several  other  procedures  the  player  may  call  during  the 
Acquisition  Ehase.  Find  Unit  will  shew  the  current  attributes  of  a 
unit.  The  player  may  also  check  the  health-status  of  a  mission 
constellation  (OCM4,  HEATHER,  etc. )  by  calling  the  Constellation  Age 
Screen  procedure.  This  screen  displays  the  name  and  tail  nunber  of  all 
deployed  (active  and  spare)  systems  performing  that  mission.  It  also 
shows  the  expected  lifetime  and  the  nunfoer  of  maneuvers  remaining  far 
each  satellite.  The  screen  also  displays  the  orbit  parameters  of  each 
satellite. 

The  player  may  maneuver  satellites  by  calling  the  Display 
Orbits/Maneuver  Sats  Procedure.  The  player  enters  the  orbit  they  are 
interested  in,  and  the  screen  shows  all  the  satellites  currently  in 
that  orbit.  At  this  time,  the  player  may  put  a  satellite  into  a  Spare 
status,  re-activate  a  satellite,  or  move  a  satellite.  The  players  may 
change  any  orbit  parameter  if  the  satellite  has  sufficient  fuel  on 
board.  Each  obit  modification  decrements  the  remaining  maneuvers  by 
one.  then  the  remaining  maneuvers  equal  zero,  the  satellite  cannot 
perform  any  more  maneuvers. 

Finally,  the  player  may  see  the  global  coverage  of  a  given 
mission.  The  player  indicates  the  mission,  and  the  oonputer  generates 
a  world  map  with  the  ground  swaths  of  the  active  satellites  performing 
that  mission.  The  coverage  is  shown  far  a  single  orbit  of  each  active 
satellite.  The  ground  swath  for  each  satellite  begins  its  coverage  at 
its  asoending  node.  Each  satellite  has  a  unique  ground  swath  which  is 
determined  by  the  system  Field  Of  View  (FOV)  and  cubit  altitude.  The 
PGVs  for  each  mission  and  their  appropriate  orbits  are  summarized  in 


Table  V.  The  satellites  are  most  effective  at  the  orbit  listed.  The 
FCN  for  the  systems  will  be  less  if  another  orbit  is  vised. 


Table  V 

MissisD 

Orbit 

ESI  IDegrees) 

CCMM 

GEO 

60 

HGNT 

VLBO 

5 

NAV 

MEO 

20 

SIGINT 

VLBO 

15 

WARNING 

GEO 

60 

WEATHER 

ISO 

12 

Assign  Ground  Support  Blase.  In  this  phase  the  {flayers  assign 
ground  support  to  the  satellites.  This  is  a  key  factor  of  the  game. 
Each  satellite  must  have  its  required  ground  support  before  it  can  be 
launched.  A  satellite  can  only  be  upgraded  from  Production  status  to 
Beady  status  when  its  required  ground  support  has  been  assigned. 
Ground  support  can  only  be  assigned  to  a  satellite  in  the  Production 
status.  The  ground  support  units  must  be  active  to  be  assigned  to  a 
satellite. 

There  are  three  types  of  ground  support  units:  ground  control 
terminals,  data  processing  centers,  and  user  terminals.  The  ground 
support  units  vary  in  the  number  required  to  aooccplish.  their  mission. 
Usually,  the  higher  Tech  Level  units  require  fewer  numbers  to  perform 
the  mission.  The  player  must  determine  the  trade  off  between  many- 
less-capable  systems  or  fewer-more-capable  systems.  As  expected,  the 
higher  Tech  Level  systems  are  more  expensive  to  acquire. 
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Some  ground  units  may  be  used  for  more  than  one  satellite.  For 
example,  one  System  Unique  Processor  can  provide  the  necessary 
data  processing  for  all  the  LSCS  u  satellites  on  orbit.  Each 
satellite  must  have  all  three  of  the  ground  support  categories  assigned 
before  they  can  be  launched. 

At  the  beginning  of  this  phase,  the  ocnputer  calls  the  Ground 
Support  procedure.  It  lists  all  the  satellites  currently  in  the 
Production  phase  and  the  ground  support  elements  which  have  already 
been  assigned  to  them.  On  the  bottom  half  of  the  screen,  the  ocnputer 
lists  the  ground  units  which  have  not  been  assigned  yet.  The  player 
indicates  which  ground  unit  he  wishes  to  assign  and  then  the  satellite 
he  wishes  to  assign  it  to.  This  phase  continues  as  long  as  there  are 
available  ground  units  or  until  the  player  wishes  to  go  on  to  the  next 
phase. 

Deployment  Rase.  In  this  phase,  players  match  the  desired 
payloads  with  launchers.  The  ocnputer  calls  the  Display  Launchable 
Sats  procedure  which  presents  the  list  of  launchable  satellites.  A 
launchable  satellite  is  a  satellite  which  has  been  produced  and  has  the 
necessary  ground  support  (a  status  of  Ready) .  Then,  the  players  choose 
which  satellite  they  want  launched. 

There  are  two  types  of  satellites:  ocmposite  and  regular.  A 
composite  satellite  contains  systems  which  have  been  added  to  the 
original  satellite.  A  regular  satellite  does  not  have  ary  add-on 
systems.  Survivability  factors  are  not  considered  add-on  systems. 

If  the  player  wants  to  create  a  Ocmposite  Satellite,  they  access 
the  Cccposite  Satellite  Screen.  The  screen  shows  all  the  satellites 
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currently  in  the  "Ready"  status  (system  has  completed  the  production 
phase  and  has  its  ground  support  assigned) .  The  player  first  enters 
the  "host"  satellite.  The  "host"  satellite  must  have  a  larger  mass 
than  any  of  the  "parasites"  added  on.  lhe  screen  displays  the  Taost" 
system  and  then  asks  far  the  "parasite"  system.  Because  the  "parasite" 
systems  can  use  many  of  the  sub-units  of  the  "host",  the  "parasite" 
systems  add  only  50%  of  their  mass  to  the  overall  composite  satellite's 
mass.  There  is  a  maximum  of  five  "parasites"  on  a  composite  satellite 
(20:39) .  The  players  should  watch  the  overall  system  weight  as  they 
create  composite  satellites.  They  may  create  a  satellite  which  is  too 
heavy  to  lift.  The  "host"  system  and  all  its  "parasites"  are 
considered  as  one  system  once  the  satellite  has  been  launched.  Vtoen  a 
composite  satellite  is  maneuvered  or  is  put  into  a  "spare"  status,  all 
the  systems  on  board  are  affected. 

Oaroosite  Satellite  Example-  The  player  wishes  to  add  a 
Single  Channel  Transponder  (SCT)  to  a  GPS-A1  Navigation  Satellite.  The 
GPS  is  considered  the  host  system  because  it  has  the  larger  mass.  The 
mass  of  the  GPS  satellite  is  780  kg,  and  the  mass  of  the  SCT  is  20  kg. 
"Parasite"  systems  add  only  50%  of  their  mass  to  the  overall  system 
mass.  Therefore,  10  kg  is  added,  resulting  in  an  overall  system  mass 
of  790  kg. 

After  selecting  the  satellite  to  be  launched,  the  next  step  is 
determining  the  satellite  orbital  parameters.  The  parameters  modeled 
in  this  game  are  the  orbit  altitude  (VIEO,  ISO,  MED,  MOL,  and  GEO) , 
inclination  (0  to  95) ,  and  ascending  node  (-180  to  +180) .  The  orbital 
parameters  are  a  function  of  mission  requirements.  These  requirements 
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include  the  necessary  ground  coverage,  the  required  system  accuracy, 
and  hew  often  coverage  is  required. 

Orbit  Parameter  Description.  Hie  orbit  altitude  plays  a 
major  role  in  the  satellite  mission.  In  the  game,  all  orbits  (except 
Molniya)  are  considered  to  be  circular.  Obviously,  the  greater  the 
altitude,  the  more  area  of  the  earth  can  be  observed;  consequently,  the 
nunber  of  systems  required  for  global  coverage  decreases.  However,  as 
the  altitude  increases,  the  resolution  capability  of  the  satellite 
decreases.  This  is  especially  important  for  the  Reconnaissance  and 
Weather  satellites.  Therefore,  these  satellites  normally  populate  the 
lower  orbits  (VI20  and  120  respectively) .  On  the  other  hand, 
Ocranunication  and  Surveillance  satellites  are  often  placed  high  above 
the  earth  in  Geosynchronous  Orbit.  This  placement  allows  the 
satellite  to  appear  to  remain  stationary  in  space.  Actually  the 
satellite  rotates  at  the  same  rate  as  the  earth.  This  allows  the 
satellite  to  remain  over  the  same  spot  on  the  ground  at  all  times.  A 
disadvantage  of  a  high  orbit  is  the  increased  weic$it  penalty, 
launchers  can  lift  less  weight  to  higher  orbits  than  they  can  to  lower 
orbits.  The  player  must  consider  these  factors  when  determining  the 
orbit  altitude  for  a  satellite. 

The  satellite  inclination  determines  the  amount  of  the  globe  which 
will  be  overflown.  For  exasple,  the  ground  path  of  an  orbit  with  an 
inclination  of  20  degrees  follows  a  sinusoidal  curve  between  20  degrees 
North  latitude  and  20  degrees  South  latitude.  The  amount  of  the  globe 
covered  is  proportional  to  the  satellite's  inclination.  The  global 
coverage  reaches  a  maximum  at  an  inclination  of  90  degrees.  This  type 
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of  inclination  is  called  a  polar  orbit.  The  ground  track  of  a  polar 
orbit  consists  of  vertical  lines  from  the  north  pole  to  the  south  pole. 
Therefore,  satellites  in  this  type  of  orbit  will  overfly  the  entire 
glebe.  This  inclination  is  of  particular  interest  to  reconnaissance 
and  weather  satellites.  Another  inclination  of  special  interest  is 
that  used  by  geosynchronous  satellites.  These  satellites  need  to  stay 
over  tha  same  ground  point;  therefore,  these  satellites  use  an  orbital 
inclination  of  zero. 

The  ascending  node  of  the  satellite  is  basically  the  longitude  at 
which  the  satellite  crosses  from  the  southern  hemisphere  to  the 
northern  hemisphere.  In  the  game,  it  is  used  to  show  the  relative 
position  of  satellites  with  the  same  orbit  altitude  and  inclination. 
The  ascending  node  is  also  used  as  the  starting  point  for  a  requested 
ground  trace.  For  a  satellite  at  GEO,  the  ascending  node  marks  the 
ground  point  which  the  satellite  hovers  over. 

After  the  orbit  parameters  are  set,  the  player  must  choose  a 
launch  site.  Two  launch  sites  are  modeled  in  the  game:  the  Western 
Test  Range  (WER)  at  Vandenberg,  and  the  Eastern  Test  Range  (E1R)  at 
Cape  Canaveral.  Each  site  begins  the  game  with  the  following  pads: 
two  Atlas,  one  Titan,  one  Delta,  and  one  STS.  Additional  pads  may  be 
acquired  as  the  game  progresses.  Each  pad  can  support  only  a  limited 
number  of  launches  each  year,  so  the  player  must  take  care  When 
assigning  launch  sites. 

The  launch  sites  have  their  own  orbit  inclination  window.  The 
inclination  window  represents  the  range  of  inclinations  which  payloads 
may  be  injected  into  via  a  direct  ascent.  A  launch  within  the  launch 
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window  is  wore  fuel  efficient  than  a  launch  outside  the  window.  The 
window  for  launches  from  Vandenberg  is  62  -  122  degrees  of  launch 
inclination.  The  window  for  launches  from  cape  Canaveral  is  29  -  48 
degrees  of  launch  inclination.  A  launch  designed  to  place  a  payload 
within  the  inclination  window  uses  the  standard  orbit-weight  correction 
factor  (function  of  inclination  and  booster  type) .  Any  launch  designed 
to  place  a  payload  in  an  orbital  inclination  outside  this  window  is 
penalized,  and  its  orbit  correction  factor  is  assigned  as  cne-half. 

This  represents  the  additional  fuel  required  to  put  the  satellite  into 
the  proper  inclination.  The  orbit  correction  factor  is  multiplied  by 
the  launcher  lift  capacity  to  get  the  total  to-orbit-1  ift-capacity  for 
the  launch.  Because  of  the  weight  penalty  imposed  on  an  out-of-window 
launch,  the  player  should  carefully  choose  the  launch  site. 

Cnoe  the  player  has  designated  a  launch  site,  the  computer  will 
display  a  list  of  launchers  which  have  the  lift  capability  to  place  the 
payload  into  the  desired  orbit.  This  list  includes  the  launcher  name 
and  nuntoer  available,  the  total  lift  capacity,  the  final  payload  mass, 
and  the  remaining  lift  capacity  of  the  launcher.  The  remaining  lift 
capacity  is  used  if  the  player  is  using  a  multiple  payload  launch.  The 
computer  tells  the  players  if  there  are  no  active  launchers  which  can 
lift  the  satellite.  The  player  must  also  designate  the  launch  pad  to  • 
be  used.  If  the  appropriate  pad  is  not  available  (each  pad  can 
support  only  a  limited  number  of  launches  each  year) ,  the  player  must 
choose  a  different  launcher  type. 

At  this  point  the  player  has  the  option  of  creating  a  Multiple 
launch.  If  there  is  sufficient  lift  capacity  remaining,  the  player  nay 
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place  additional  payloads  on  board  the  launcher.  Multiple  Payloads 
take  advantage  of  cannon  sub-systems  required  far  launching  all 
satellites.  Therefore,  extra  payloads  add  only  75%  of  their  mass  to 
the  overall  mass  to  be  lifted  (20:41) .  The  Multiple  Launch  Screen 
shcus  the  remaining  satellites  ready  for  launch  and  asks  for  the 
additional  payloads.  The  computer  will  not  allow  the  launcher  to  be 
over-loaded.  There  can  be  no  more  than  four  separate  payloads,  and  the 
payloads  must  be  launched  into  the  same  orbit  (VLED,  MED,  etc. ) 

(20:41) . 

Once  the  payloads  have  been  finalized,  the  computer  asks  the  NASA 
player  if  the  launch  violates  the  civilian  constraint.  This 
restriction  states  at  least  80%  of  the  civilian  launch  requirements 
listed  in  the  scenario  must  be  met  during  the  turn.  If  NASA  says  the 
launch  would  violate  these  constraints,  the  launch  is  scrubbed  and  the 
launch  allocation  process  begins  over  again  (20:36) . 

If  NASA  says  the  launch  is  okay,  then  the  computer  checks  the 
launch  reliability  factor  of  the  launcher  and  calls  the  random  number 
generator  to  determine  if  the  launch  is  successful.  The  randan  number 
generator  returns  a  number  between  0  and  1.  If  this  number  is  greater 
than  the  reliability  factor  of  the  launcher,  then  the  launch  fails,  and 
the  launcher  and  all  of  its  payload  are  considered  destroyed.  If  the 
launcher  was  a  reusable  type,  then  considerable  damage  could  be  done  to 
the  overall  lift  capability.  If  the  launch  is  unsuccessful,  the  launch 
pad  is  damaged.  The  number  of  remaining  launches  the  fad  can  support 
that  year  is  halved,  and  a  repair  fee  of  $10  Million  is  assessed. 


If  it  is  a  successful  launch,  then  the  launcher  and  payloads  are 


considered  to  have  achieved  orbit.  At  this  point  the  launcher  rust 
successfully  deploy  each  of  its  payloads.  There  is  a  uniform  97% 
chance  per  payload  of  a  successful  deployment  (20:40) .  Again,  the 
ocnputer  calls  the  randan  number  generator.  If  the  number  is  greater 
than  .97 ,  then  the  deployment  has  failed  and  the  payload  is  considered 
destroyed.  If  the  number  is  .97  or  less,  then  the  deployment  was 
successful,  and  the  payload  is  considered  active.  The  payloads  of  a 
multiple  payload  launch  must  be  deployed  separately.  If  one  payload  is 
not  successfully  deployed,  it  does  not  affect  the  other  systems. 

Launch  Example.  The  player  wishes  to  launch  a  AESATOCM 
Communication  satellite.  The  desired  orbit  is  GEO  at  an  inclination  of 
zero  degrees.  The  player  chooses  to  launch  the  satellite  from 
Vandenberg.  The  AESATOCM  satellite  is  to  be  launched  by  itself  without 
any  add-on  systems,  so  its  mass  is  1410  kg.  The  ocnputer  determines 
that  the  Titan  34D  is  the  only  active  launcher  which  can  lift  the 
satellite.  The  lift  capacity  of  the  Titan  34D  to  GEO  is  4500  kg. 
However,  the  inclination  is  outside  the  Vandenberg  launch  window; 
therefore,  the  orbit  correction  factor  is  one-half.  Multiplying  this 
factor  by  the  lift  capacity  (.5  *  4500)  gives  a  lift  capacity  of  2250 
kg.  Therefore,  the  Titan  can  launch  the  system.  loading  the  AESATOCM 
leaves  an  excess  lift  capacity  of  840  log  (2250  -  1410) .  The  player 
also  wants  to  launch  a  DSCS  H  Satellite;  therefore,  he  decides  to  make 
a  multiple  launch.  The  original  mass  of  the  DSCS  H  Satellite  (620 
kg)  is  multiplied  by  .75  since  it  is  a  multiple  launch.  This  mass  (465 
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kg)  is  added  to  the  overall  launch  weight  resulting  in  a  final  launch 
weight  of  1875  kg  (1410  +  465) . 

Once  the  launch  process  has  been  ccopleted,  the  cccputer  decreases 
the  active  launchers  of  that  type  by  one.  If  the  launcher  was  reusable 
or  recyclable,  then  its  total  missions  are  reduced  by  one. 

The  Find  Unit,  Constellation  Age  Screen,  Display  Ortits/Maneuver 
Sats,  and  Show  Mission  Ground  Traces  procedures  may  also  be  called  from 
the  Deployment  Hiase.  These  procedures  were  described  in  the 
Acquisition  Hiase. 

This  phase  continues  until  all  the  launchable  satellites  have  been 
launched,  or  the  launch  capability  is  exhausted. 

Scoring  Phase.  After  every  launch  phase,  the  game  controller  will 
assign  a  point  for  each  mission  requirement  which  has  been  met  during 
the  turn.  These  points  are  used  to  evaluate  the  effectiveness  of  the 
farce  structure  designed  by  the  players. 

The  game  continues  repeating  these  phases  until  the  end  of  turn 
ten  or  at  the  discretion  of  the  game  controller. 
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The  game  is  designed  to  be  as  user-friendly  as  possible.  It  is 
playable  by  space  "novices"  with  minimal  instructions.  The  game  is 
also  designed  to  be  expandable.  Additional  mission  types  or  improved 
units  can  be  added  to  the  game  with  relative  ease. 


V.  Results.  Conclusions  and  Recccroendations 


Results 

A  full  scale  validation  of  ADAM  has  not  been  perforated.  However, 
the  game  has  been  reviewed  by  Col  Schroeder,  Space  Comnand  Chair,  Air 
War  College,  and  by  faculty  and  students  of  the  Graduate  Space 
Operations  (GSO)  Program  at  the  Air  Force  Institute  of  Technology. 

They  have  concluded  that  ADAM  is  a  playable  and  useful  representation 
of  the  acquisition  and  deployment  process  of  space  assets,  their 
cunnents  for  modifications  to  ADAM  are  included  in  this  chapter. 

A  full  scale  validation  of  ADAM  will  be  performed  at  ACSC  during 
the  space  elective  course  in  January,  the  game  is  scheduled  for 
initial  use  in  May  during  the  AWC  Space  Series  Course,  this  course  is 
designed  to  provide  a 

. .  .VKsrking  knowledge  of  terminology,  concepts,  and  the 
environment  for  space  operations;  to  identify  key  mission  areas 
for  space  systems;  and  to  appreciate  fundamental  space  issues 
affecting  space  operations  (1:1). 

g? naLasitng 

It  is  essential  for  managers  of  US  space  assets  to  know  the 
concepts  involved  in  space  operations.  Due  to  the  strategic  importance 
of  space  and  space  assets  to  both  the  US  and  Soviet  union,  there  is  a 
great  potential  for  space  conflict.  Consequently,  the  US  must  be 
prepared  to  fight,  and  win,  a  war  in  space.  To  succeed  in  a  space  war, 
the  US  must  develop  two  essential  ingredients  of  warfare:  doctrine  and 
technology  (7:216). 
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These  are  two  ways  to  develop  doctrine:  thrombi  experience  and 
through  theory.  Since  there  is  no  experience  in  space  conflict,  the 
necessary  data  rust  be  developed  through  theory.  Schools  like  ACSC  and 
AW C  are  obvious  places  to  develop  a  Space  Doctrine;  however,  very 
little  time  is  allotted  for  teaching  space  and  its  concepts  at  these 
two  schools.  The  amount  of  time  allotted  in  the  curriculum  for  space 
is  only  40  hours  at  ACSC  and  26  hours  at  AWC  (16:—*) .  ADAM  will 
quickly  and  effectively  teach  concepts  necessary  to  develop  an 
effective  Space  Doctrine. 

flgtgifcisa  Uses  £qz  NM 

There  are  potential  uses  for  ADAM  besides  those  outlined  in 
Chapter  1.  The  model  can  be  used  to  show  the  difficulty  associated 
with  deploying  SDI-type  constellations.  The  game  can  reveal  the 
tremendous  costs  associated  with  acquiring  the  large  numbers  of 
satellites  in  a  typical  SDI  configuration.  It  can  show  how  the  rest 
of  the  space  structure  would  suffer  as  a  rerult  of  deploying  the  SDI 
satellites.  The  game  can  reveal  the  tremendous  costs  associated  with 
acquiring  the  large  numbers  of  satellites  in  a  typical  SDI 
configuration.  The  game  can  reveal  many  of  the  barriers  to  developing 
a  ground-support  network  cr  able  of  handling  all  the  satellites. 
Finally,  the  game  can  demonstrate  the  inability  of  the  present  launch 
facilities  to  deploy  SDI. 

ADAM  can  also  reveal  the  steps  needed  to  develop  different  types 
of  space  forces.  The  game  can  be  used  as  an  "electronic  sketch  pad"  to 
help  the  user  develop  methods  to  create  alternative  space  forces.  The 
users  would  be  able  to  determine  which  technologies  must  be 
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investigated  and  when.  The  model  would  also  snow  the  most  cost 
effective  method  to  reach  this  technology;  whan  to  mate  certain 
research  decisions,  or  what  type  of  survivability  factors  to  add  to  the 
space  force.  Ibe  game  can  be  used  as  a  long  range  planning  tool  to 
develop  a  space  order  of  battle. 

Finally/  the  game  can  be  used  as  an  educational  tool.  It  can  shew 
space  neophytes  the  intricacies  involved  in  the  development  of  a  space 
force.  It  can  show  the  requirements  of  the  ground  support  element,  the 
difficulties  encountered  when  maneuvering  space  assets,  and  the 
importance  of  inbeneporating  survivability  factors  into  satellites. 
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ADAM  can  serve  as  the  baseline  for  several  follow-cn  efforts. 
These  efforts  would  provide  even  greater  uses  of  the  current  model. 
Sane  of  these  efforts  are  converting  the  game  to  a  continuous 
simulation,  adding  a  Soviet  player,  and  developing  a  conflict 


capability. 


Oartinuous  SiiaiLation.  The  game  was  developed  as  a  discrete 
simulation  to  simplify  the  effort.  The  design  divides  the  game  into 
distinct  phases.  The  player  can  only  perform  the  missions  included  in 
that  phase.  For  example,  ground  support  elements  cannot  be  assigned  in 
the  launch  phase. 


Converting  the  game  to  a  continuous  simulation  would  add  more 
realism  to  the  game.  It  would  allow  the  acquisition,  deployment  and 
maneuvering  of  space  assets  to  be  accomplished  simultaneously,  just  as 
is  dene  in  the  real  world.  It  would  also  allow  for  an  immediate 
response  to  a  launch  failure  or  a  satellite  malfunction.  Incorporating 
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a  continuous  simulation  consists  of  three  elements:  developing  a  "game 
clock,"  developing  an  event  scheduler,  and  modifying  the  use  of  the 
Update  field  currently  in  the  database  structure. 

The  game  clock  keeps  track  of  the  passage  of  time  during  play.  It 
would  allow  the  player  to  enter  commands  at  any  time  during  the  turn 
(such  as  purchasing  support  elements  cr  launching  a  satellite) .  The 
event  scheduler  accumulates  a  list  of  actions  performed  by  the  player. 
There  is  a  Ntime-to-ccqpleticnN  associated  with  each  action.  This  list 
would  be  sorted  by  the  shortest  t  ime~to-ccppletiori .  Once  the  previous 
action  has  been  completed,  the  event  scheduler  takes  the  action  to  be 
performed  next,  and  calls  the  appropriate  procedures.  Examples  of 
these  actions  include  updating  the  acquisition  status  of  a  ground 
support  unit,  updating  the  position  of  a  satellite,  or  checking  for 
system  failure.  The  update  field  can  be  used  to  store  the  time-to-next 
action  for  each  record  in  the  database.  This  field  would  be 
continuously  updated  as  the  game  clock  progressed. 

A  continuous  simulation  allows  each  unit  to  have  its  own  update 
time.  Incorporating  a  more  accurate  passage  of  time  into  the  game 
would  inject  more  realism  into  the  simulation. 

Along  with  incorporating  a  continuous  simulation,  there  should  be 
a  "history"  file  created  so  the  players  can  review  the  commands  that 
were  given  throughout  the  game.  This  "history"  file  should  include  the 
command  given,  the  result  of  the  command,  and  the  turn  in  which  the 
command  was  given. 

Soviet  Player.  Another  possible  enhancement,  is  adding  a  Soviet 
Player  to  the  game  and  playing  the  two  sides  against  one  another.  The 
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g ame  can  be  vised  with  a  Soviet  database  with  no  modifications  to  the 
program.  The  teams  would  play  on  separate  oonputers  without  any  direct 
interaction.  However,  after  every  turn,  the  database  four  each  side 
would  be  written  to  a  disk  and  the  disks  swapped.  The  Soviet  database 
would  be  given  to  the  US  player  and  vice  versa. 

The  database  would  then  run  through  a  filter  program.  The  filter 
would  provide  same  information  on  the  other's  farce  structure.  The 
accuracy  of  this  information  would  be  a  function  of  the  satellite 
mission  and  available  intelligence.  The  information  provided  by  the 
filter  program  would  vary  according  to  the  mission  of  the  satellite. 

In  the  real  world,  satellite  missions  can  sometimes  be  identified  by 
monitoring  the  signals  sent  from  ground  stations  and  by  observing  the 
satellite  maneuvers.  Some  satellite  missions  are  easier  to  determine 
than  others.  The  missions  of  satellites  which  often  send  and  receive 
signals  from  ground  stations  are  normally  easier  to  identify  than 
satellites  which  have  little  ground  signal  interaction.  Therefore,  a 
ccnirunicaticn  satellite  would  be  easier  to  distinguish  than  an  early 
warning  satellite.  The  accuracy  of  this  information  increases  with  the 
on-orbit  time  of  the  satellite.  The  greater  on-orbit  time  allows  far 
more  signal  exchanges  and  more  opportunities  to  observe  the  satellite 

f 

maneuvering. 

As  an  example,  in  turn  2  the  filter  reports  a  possible 
reconnaissance  satellite  located  at  X.  By  turn  4,  however,  there  has 
been  sufficient  ground  interaction  and  satellite  maneuvering  to 
correctly  identify  the  unit  as  a  weather  satellite. 
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lhe  accuracy  of  these  predictions  could  also  be  modified  by 
purchasing  intelligence.  The  player  could  allocate  some  of  his  budget 
to  intelligence  gathering,  and  the  filter  program  would  provide  more 
accurate  and  detailed  information  on  the  enemy's  space  force. 

this  information  would  be  displayed  on  a  "Strategic  Alert  Screen.” 
This  screen  would  show  possible  Soviet  space  deployments  and  probable 
constellation  statuses.  The  filter  could  also  reveal  some  portion  of 
the  enemy's  ACB  screen.  Instead  of  waiting  far  a  system  to  be  deployed 
to  determine  its  mission,  the  system  could  be  identified  while  still  in 
the  acquisition  process.  This  would  provide  a  quicker  reaction  to 
enemy  deployments. 

By  allowing  this  cross  flow  of  information,  the  players  can  react 
to  the  other's  actions.  It  provides  the  players  with  an  active 
adversary  to  game  against. 

Conflict  Capability.  ADAM  can  be  vised  as  the  front  end  for  a 
space  conflict  model.  The  output  from  ADAM  can  be  used  as  the  starting 
point  for  a  space  conflict  game.  ADAM  can  be  vised  to  develop  and 
deploy  the  space  farces  until  some  event  occurs  to  trigger  a  conflict. 
At  that  time,  all  the  deployed  units  would  be  saved  to  a  data  file  and 
used  as  the  initial  input  to  the  conflict  simulation. 

The  development  of  a  conflict  simulation  should  begin  by  modeling 
a  few  cne-anrcne  space  engagements  and  eventually  model  a  full  all-out 
attack  by  both  sides.  The  initial  model  should  include  weapon  systems 
which  are  currently  available  or  those  which  can  be  developed  within 
the  next  five  to  ten  years.  The  initial  version  should  not  include 
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exotic  weapons  like  space-based  electro-magnetic  rail  guns,  but  should 
include  things  like  ground-based  lasers  and  ground-based  interceptors. 

Ihe  model  oust  develop  a  plausible  transition  scenario  between 
peace-time  and  the  beginning  of  the  conflict.  In  the  real  world,  it 
might  be  very  difficult  to  distinguish  between  a  covert  anti-satellite 
attack  and  a  normal  system  outage.  The  game  could  be  designed  to  have 
several  such  pivotal  events  in  the  scenario.  The  game  flow  could  be 
changed  depending  how  the  players  react  to  the  situations. 

This  transition  phase  should  mark  a  change  in  the  length  of  real 
time  each  game  turn  represents.  Once  the  conflict  begins,  units  in  the 
multi-year  acquisition  pipeline  will  not  play  a  role  in  the  space 
situation.  The  war  will  have  to  be  fought  with  the  elements  on  hand, 
plus  whatever  systems  which  can  be  quickly  deployed.  The  time  steps 
should  go  from  months  and  years  to  minutes  and  hours.  When  a  tactical 
alert  is  given  that  a  possible  ASAT  attack  is  underway,  the  player  will 
have  only  a  short  time  (in  real  terms)  to  react. 

Once  a  conflict  has  begun,  the  program  should  provide  sene 
tactical  data  on  enemy  actions.  Intelligence  information  such  as  an 
impending  SS-11  ASAT  launch  or  a  possible  laser  attack  from  Sary  Shagan 
should  be  available  to  the  players.  Once  the  program  has  alerted  the 
player  of  a  possible  attack,  the  program  should  provide  a  list  of 
possible  counter-actions.  Examples  of  these  actions  are  maneuvering 
the  target  out  of  the  way,  shutting  down  the  target  satellite,  or 
deploying  decoys.  Any  maneuvering  done  in  space  should  reflect  the 
actual  limitations  of  orbital  mechanics. 
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The  program  should  also  provide  an  expected  probability  of  success 
of  an  ASAT  attack.  The  accuracy  of  this  prediction  could  be  a  function 
of  the  type  and  amount  of  the  intelligence  purchased.  Also,  the 
program  should  provide  a  list  of  counter-attacks  available  to  the 
player.  Possible  actions  include  attacking  an  enemy's  satellite  or 
activating  a  spare  to  fill  the  gap  left  by  the  attack.  The  game  should 
provide  an  estimated  probability  of  success  for  each  action.  Finally, 
the  game  should  display  the  result  the  space  conflict  has  on  the 
terrestrial  demands  of  the  space  asset.  To  model  this  effectively,  the 
space  conflict  game  should  be  integrated  with  a  ground  combat  game 
which  accurately  models  the  use  of  space  assets.  For  exaaple,  if  a 
weather  satellite  is  destroyed,  there  should  be  a  possibility  of 
unexpected  weather  delaying  or  foiling  an  attack. 

A  space  conflict  scenario  should  also  reflect  the  quick-launch 
replacement  capability  of  the  Soviets  and  the  long  lead  times 
associated  with  US  launches.  It  should  model  the  current  vulnerability 
of  the  US  ground  control  network  to  direct  or  covert  attacks.  It 
should  show  the  effect  a  degradation  of  the  ground  network  would  have 
on  the  space  force. 

The  integration  of  a  graphics  package  which  provides  a  three 
dimensional  view  of  orbits  would  allow  the  players  to  better  visualize 
the  various  orbit  types.  The  graphics  package  should  be  incorporated 
into  the  game  code  to  allow  easy  access  to  the  desired  screens.  This 
graphics  package  should  display  satellite  launches  and  maneuvers,  orbit 
traces,  system  failures,  and  ASAT  attacks. 
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These  modifications  and  follow-on  efforts  can  be  developed  in  the 
micro-computer  environment.  However,  Turbo  Pascal,  Version  3,  has  a 
memory  limitation  which  restricts  expansion  of  the  current  code. 
Boreland  International,  Inc.  has  since  developed  Version  4,  which  does 
not  have  this  memory  limitation.  Therefore,  Version  4  should  be  used 
in  any  follow-on  efforts. 

Smusarv 

Hicro-ccnputers  offer  an  exceptional  learning  environment.  Games 
developed  on  Micros  provide  an  alternative  method  to  traditional  board 
games  to  develop  strategies  and  tactics.  These  computer  models  are 
more  user-friendly,  and  less  manpower  intensive,  than  the  typical  board 
game.  Therefore,  many  more  scenarios  can  be  examined  in  the  same 
amount  of  time:  more  viewpoints  can  be  developed.  The  media  of  micro- 
ocnputers  allows  wide  dissemination  of  the  game.  This  allows  more 
people  to  benefit  from  the  game,  and  it  allows  for  more  feedback  for 
future  modifications. 

Because  space  is  critical  to  the  defense  of  the  US,  the  managers 
of  our  space  assets  must  be  aware  of  the  concepts  involved  with  space 
operations.  ADAM  provides  an  effective  environment  to  teach  these 
concepts. 


Appendix  a:  Rgstwree  Catalog 


Hiis  appendix  contains  the  units  vMch  can  be  acquired  during  the 
game.  It  is  a  modified  version  of  the  Resource  Catalog  developed  for 
the  SRAE.  she  users  may  develop  their  am  catalog  if  specific 
objectives  are  to  be  taught. 
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OMUNICmCN  SYSTEMS 


SYSTEM 

TECH 

IEVEL 

#  CHANNELS 

MASS 

(*g) 

LLFEITME 

(YR) 

COST  ($M) 
R&D/EROD 

NOTES 

AFSATOCM 

1 

25/000 

1410 

6 

200/80 

dscs  n 

2 

35/000 

620 

8 

200/50 

DSCS  HI 

3 

40/000 

1150 

8 

300/85 

Includes  Mad 
Anti-Jam 

Intelsat  V 

4 

58/000 

1000 

8 

100/80 

Cannot  be  made 
Survivable 

MUSTAR 

5 

30/000 

3000 

8 

800/120 

includes  180 
day  autonomy 
&  Hi  Anti-Jam 

MUSTAR  II 

6 

40/000 

2500 

8 

1000/120 

Same  as  MUSTAR 

Crosslink 

1 

5/000 

100 

8 

50/20 

Use  as  Parasite 
Does  not  need 
R&D  from  above 
systems 
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(XMfJNICATICN  SYSTEMS  (cant.) 

SYSTEM  TECH  #  CHANNELS  HASS  LTEEHME  COST  ($M) 

LEVEL  (kg)  (YR)  R&D/fROD  NOTES 


TRANSPONDERS  -  These  single  channel,  low  speed  broadcast  repeaters 
can  be  flam  as  a  parasite  on  any  satellite  in  the 
catalog.  They  do  not  require  R&D  from  earlier  systems. 


SCT  -  single 

Channel 

Transponder 

1 

20 

4 

/5 

low  Anti-Jam 
only 

SCT-1 

1 

30 

6 

60/8 

Med  Anti-Jam 
only 
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WEA3HER  SYSTEMS 


SYSTEM 

TECH  DOWN 
LEVEL  LINK 

VIDEO 

D/N 

IMAGE 

D/N 

TEMP/ 

WIND 

SOLAR 

ACT 

MASS 

(kg) 

LLEtTiME  COST 
(YR)  R&D/HROD 

NIMBUS 

1 

Daily 

MM 

L  L 

Y 

- 

950 

4 

200/65 

TIROS 

2 

Daily 

M  M 

M  M 

Y 

Y 

1420 

6 

400/65 

ATDROS 

3 

Real 

H  M 

H  35 

Y 

Y 

1725 

8 

300/85 

SMS/GOES  4 

Real 

— 

M  M 

- 

Y 

1130 

6 

500/85 

GOES-D 

5 

Real 

— 

H  M 

- 

Y 

1800 

8 

500/70 

EMSP 

5 

Real 

H  H 

H  H 

Y 

- 

1650 

6 

100/100 

EMSP  satellite  includes  15  Day  Autonomy, 
does  not  require  R&D  from  GOES-D 

L  -  low  resolution,  M  -  medium  resolution,  H  -  high  resolution 

drop  -  deorbits  data  package  on  ground  ocranand 

daily  -  radio  down-link  on  regular  schedule 

real  -  real  time  down-link 

NAVIGATION  SYSTEMS 


SYSTEM  TECH  NAV 

LEVEL  ACCURACY 
(M) 

INTEGRATED 

FOSmCN 

(M) 

RESTORED 

REDUNDANCY 

(#) 

MASS 

(kg) 

LIFETIME 

(YR) 

COST  ($M) 
R&D/EHOD 

NOVA 

1 

160 

1.0 

4 

136 

4 

400/35 

GPS-A1 

2 

50 

0.1 

3 

780 

6 

500/60 

GPS-A2 

3 

15 

.01 

4 

780 

6 

500/60 

GES-B1 

4 

12 

.01 

3 

1500 

6 

500/80 

GES-B2 

5 

6 

.005 

4 

1500 

6 

500/80 
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RECONNAISSANCE  SYSTEMS 


SYSTEMS 

TECH 

LEVEL 

DOWN 

LINK 

TIDED 

D/N 

IMAGERY 

D/N 

MASS 

(**) 

LIFETIME 

(YR) 

COST  ($M) 
R&D/ERDD 

IMINT  - 

Imagery/Rxjto  Intelligence 

Eagle 

1 

Daily 

L  - 

M  - 

11000 

1 

800/100 

Image 

2 

Daily 

M  M 

-  - 

3000 

1 

400/80 

Scale 

3 

Real 

nm  mm 

H  H 

5000 

1 

500/50 

Snoop 

4 

Real 

H  H 

MM 

6500 

2 

750/150 

SIGINT  -  Signal  Intelligence 

SIGNAL 

ACCURACY  IDENTITY 


Farret-2 

1 

M 

Good 

200 

6 

100/50 

Ferret-3 

2 

M 

Good 

1500 

6 

250/60 

Ferret-4 

3 

H 

TGood 

700 

8 

100/80 

Ferret  2  and  Ferret  3  deorbit  data  packages 
Ferret  4  has  a  real  time  down-link 

L  -  Lew  accuracy,  M  -  Medium  accuracy,  H  -  Hi#i  accuracy 
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WARNING  SYSTEMS 
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:  TRACK 

IDENTIFY  : 

:  AIR 

MASS 

LIFE 

COST  ($M) 

:  CRAFT  ICEM  SUM 

TARGET  COUNT  : 

(kg) 

TIME 

R&D/AOQ 

0®) 


SEWS 

Y 

Y 

country 

good 

1100 

6 

700/150 

SEWS-2 

Y 

Y 

target 

vgood 

1400 

8 

400/200 

ATS-1 

HAIA 

Y 

Y 

target 

good 

315 

.5 

700/200 

ATS-2 

HA 

Y 

Y 

target 

good 

435 

2 

500/200 

ATS-3 

AIA 

Y 

Y 

target 

Vgood 

1400 

4 

500/150 

HAIA  -  High  altitude  in  afterburner 
HA  -  High  altitude 


AIA  -  All  altitudes  in  afterburner 

Identifying  the  threat  systems  target  (TARGET  IDENTITY)  is  not 
applicable  to  aircraft  threats. 
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OFFENSIVE  SYSTEMS 
:  TARGETS  : 

SYSTEM  TECS  :  SPACE  :  :  MASS  LIFETIME  COST  ($M) 


LEVEL  : 

LEO  MEO  GEO 

:  GROM)  VC  SHIPS  : 

(*g) 

(YR) 

R&D/EROD 

Space 

Rocks 

1 

- 

- 

- 

Y 

~ 

500 

10 

100/30 

Orbit 

Bento 

1 

- 

- 

- 

Y 

- 

500 

N/A 

100/100 

Space 

Mine 

1 

- 

mm 

Y 

- 

- 

500 

20 

— /20 

F-15 

MHV 

1 

Y 

- 

~ 

-  - 

- 

N/A 

20 

~/20 

Space 

Plane 

1 

Y 

- 

- 

Y 

Y 

N/A 

N/A 

300/100 

G/Laser 

(Ground 

Based) 

1 

Y 

40 

™ * 

_  — 

• 

N/A 

6 

500/100 

X-Ray 

Laser 

2 

Y 

Y 

Y 

H 

- 

4000 

6 

200/200 

P-BEAM 

3 

Y 

Y 

Y 

H 

Y 

7500 

6 

700/125 

Orbit  Bento  and  Space  Plane  are  launched  on  demand 
H  -  high  altitude 


i 
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SYSTEM  TECH 
IEVEL 


ES2TNSIVE 


TARGETS 


IOM  : 

BOOST  MTDOOURSE  REENTRY:  VC 


XJEE 

MASS  TIME  COST  ($M) 
(kg)  (YR)  R&D/TRQD 


Rceket- 

Int 

1 

Y 

' 

' 

4000 

6 

200/60 

Socket 

1 

- 

- 

Y 

H 

- 

N/A 

30 

~/15 

G/Laserl 

(Ground 

Based) 

1 

mm 

Y 

* 

«w 

N/A 

6 

500/100 

G/Iaser2 

(Ground 

2 

mm 

Y 

Y 

L 

Y 

N/A 

6 

100/120 

Based) 


S/Laser  3  Y  Y  Y  K  9500  6  200/125 

(Space 
Based) 

S/P-BEAM  4  Y  Y  Y  B/L  7500  8  700/100 

(Space 
Based) 


H  -  hic£x  altitude,  L  -  lew  altitude,  H/L  -  all  altitudes 
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GROUND  OCNIKDL  SYSTEMS 

SYSTEM  LIFETIME  COST  ($M)  NOTES 

(YR)  R&D/FROD/OSM 


Ground  Control  Terminals 

System  Unique 

Ground  Terminal 
(SUGCT) 

15 

20 

5 

5 

One  terminal  required  for 
each  system  type  (DSCS  II, 
GPS,  etc.)  and  one  required 
for  each  GEO  satellite 

System  unique 

Mobile  Ground 
Terminal  (SCJM3CT) 

10 

20 

10 

10 

Same  as  SUGCT 

Common  Ground 
Control  Terminal 
(OGCT) 

15 

160 

20 

15 

Four  required  to  control 
entire  Architecture 

Consolidated  Space 
qps  Center  (CSOC) 

25 

20 

100 

5 

One  required  plus  three 
CGCTs  to  control  entire 
Architecture 

OcP53cn  Mobile 

Ground  Terminal 
(CM3T) 

10 

60 

30 

20 

Same  as  OGCT 

User  Terminals 

System  unique 

User  Terminal 
(SHUT) 

15 

20 

2 

1 

One  required  for  each 
system  (DSCS  II,  GPS,  etc.) 
user 

Mission  Unique 

User  Terminal 
(MJtfT) 

15 

100 

2 

1 

One  required  for  each 
user  of  a  mission 
area  (Gcum,  Nav,  etc.) 
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GROUND  CONTROL  SYSTEMS  (OCNT.) 


SYSTEM  IHEHME  COST  ($M)  NOTES 

(YR)  R6D/BR0D/05M 


Data  Prooessim 

System  unique 

Data  Processor 
(SUDP) 

15 

100 

10 

1 

One  required  for  each 
system  type  (DSCS  II, 
SENS,  etc.) 

System  Unique 

Mobile  Data 
Processor  (SUMDP) 

10 

100 

30 

2 

Same  as  SUDP 

Mission  unique 

Data  Processor 
(MUDP) 

15 

200 

20 

2 

One  required  for  each 
Mission  area 
(Goran,  Nav,  etc.) 

(Consolidated  Space 
Ops  Center  (CSOC) 

25 

20  100 

5 

Used  far  all  systems 

Mission  Unique 
Mobile  Data 
Processor  (MGMEP) 

10 

150 

60 

7 

Same  as  SUDP 
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LAUNCH  VEHICLES 

MASS-OX)  CREPT  (H3) 


LAUNCHER  RETJABHITY 
<%) 

:  VLEO 

• 

• 

ISO 

MOL 

MHO 

GEO  : 

• 

• 

COSTS  ($M) 
R&D/EROD 

Delta 

92 

5170 

4800 

1295 

1245 

800 

~/28 

Atlas/Cent 

88 

9575 

8895 

2400 

2310 

1485 

— /51 

Titan  34D 

94 

13900 

12915 

- 

- 

— /63 

Titan/IUS 

92 

11120 

10975 

2960 

2855 

1833 

-/71 

Titan/Cent 

89 

30000 

27000 

6900 

7000 

4500 

— /77 

Shuttle-1  R 

92 

29275 

26200 

5465 

5100 

2230 

— /2000 

Shuttle-2  R 

89 

14375 

13355 

7330 

7070 

4540 

— /2000 

STS  R 

97 

63530 

59245 

15910 

15350 

9860 

100/60 

Space  Plane  R 

97 

1600 

1550 

- 

- 

- 

2000/1100 

Space  Taxi  R 

97 

120000 

120000 

33000 

32000 

20000 

300/900 

LLV  C 

97 

7945 

7380 

1990 

1920 

1233 

100/90 

MLV  C 

97 

14191 

13184 

3555 

3430 

2200 

160/150 

HD/  C 

97 

19060 

17710 

4770 

4605 

2960 

170/170 

SLV  C 

94 

100000 

93255 

25040 

24160 

15520 

500/232 

STS-K)  R 

97 

38120 

35415 

9545 

9210 

5915 

1000/2400 

R  -  reusable  launcher,  C  -  recyclable  launcher 
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LAUNCH  EADS 

SYSTEM  COST  ($M)  IAUNCH  PATE 

P&D/HOD/OSM  PER  YEAR 


Delta  IF 

— 

10 

10 

4 

Atlas  IF 

— 

25 

10 

3 

Titan  IF 

— 

50 

10 

2 

STS  IF 

— 

250 

10 

3 

LLV  IF 

100 

12 

5 

12 

NLV  IF 

150 

25 

5 

9 

HIV  IF 

200 

50 

5 

8 

SLV  IP 

200 

70 

5 

5 

STSHEO-IP 

160 

350 

10 

12 
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Appendix  B:  Requirements  Catalog 
This  appendix  contains  requirements  the  players  must  meet  to  be 
awarded  points.  The  requirements  are  listed  by  player  responsibility. 
Each  list  is  divided  into  the  mission  areas  of  satellite  systems, 
ground  support,  and  launch  systems.  The  team  receives  cna  point  for 
each  level  of  requirements  which  is  filled.  The  use  of  the 
Requirements  Catalog  is  optional  and  is  designed  for  players  unfamiliar 
with  space  system  requirements.  The  Requirements  Catalog  was  developed 
at  ACSC  far  use  in  the  SRAE  game. 
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NCRAD,  USdNOSPACE 


Oappunicaticos 


Level  I 

-  100  narrowband  channels  far  OCM  within  OCNUS 

-  20  color  video  (high-speed  digital)  for  OCM  within  OCNUS 

-  10  narrowband,  4  color  video,  2  voice  to  Western  Pacific 

-  4  narrowband,  1  color  video,  1  voice  to  Indian  Ocean 

-  20  narrowband,  8  color  video,  2  voice  to  Europe 

-  22  wideband  voice  within  OCNUS 

Level  n 

-  22  narrowband  channels  with  medium  anti-jam  within  OCNUS 

-  4  narrowband  channels  with  high  anti-jam  to  Europe,  4  to  Pacific, 
and  1  to  Indian  Ocean 

-  Satellite  autonomy  far  15  days 

Level  HI 

-  11  wideband  voice  channels  with  high  anti-jam  within  OCNUS,  l  to 
Europe,  1  to  Pacific,  and  1  to  Ihdian  Ocean 

-  20  narrowband  low  speed  digital  with  high  anti-jam  within 
OCNUS,  4  to  Europe,  4  to  Pacific,  and  1  to  Indian  Ocean 

Level  IV 

-  All  level  I  requirements  with  high  anti-jam 

-  Satellite  autonomy  for  180  days 

Weather  Meteorology 


level  I 

-  lew  resolution,  day  video  far  next-day  launch  prediction 

Level  n 

-  lew  resolution,  day/night  video  and  image  for  launch  window 
prediction 

-  Track  solar  storm  activity  for  manned  flight  safe-launch  periods 

-  Anti-jam  data  down-link 
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Level  HI 

-  Atmospheric  temperature  profile  and  medium  resolution,  day/night 
video  and  imaging  for  weekly  launch  schedule  prediction  and 
satellite  control  link  monitoring 

-  Search-and-rescue  beacon  tracking 

-  Laser/nuclear  hardening  for  15-days  autonomy 

Level  IV 

-  Defensive  maneuverability  for  satellites 

-  Real-time  medium  resolution  day/night  video  or 
sequenced  images  for  shuttle  launch  and  re-entry 

-  Determination  of  cloud  height  for  shuttle  re-entry 

-  Laser/nuclear  hardening  for  180-days  autonomy 

NavigaUpn/PogiUon 

Level  I 

-  Position  accuracy  for  space  systems  to  100  meters  (integrated) 

Level  n 

-  Position  accuracy  far  space  systems  to  50  meters  integrated:  100 
Meters  real-time 

-  Laser/nuclear  hardening  for  15-days  autonomy 

-  Anti-jany'encryption  on  down-link 

-  Aircraft  (interceptor)  navigation  accuracy  to  100  meters 

Level  HI 

-  Position  accuracy  for  space  systems  to  1.5  meters  (integrated) ; 
50-meter  real-time  accuracy  for  satellite  maneuvering 

-  Laser/nuclear  hardening  for  180-days  autonomy 

-  Aircraft  (interceptor)  navigation  accuracy  to  15  meters 

Level  IV 

-  Position  accuracy  far  space  systems  to  .001  meters  (integrated) ; 

6  meter  real-time 

-  Satellite  defensive  maneuverability 

Reconnaissance — Ihe  act  of  obtaining  the  position,  strength,  and 
movement  of  enemy  forces. 

Level  0 

-  Determine  orbit  parameters  of  Soviet  spacecraft. 

Level  I 
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Level  n 

-  Identify  by  XMINr  or  SICTNT,  the  function  of  Soviet  systems 

-  Identify  possible  nuclear  weapons  in  space 

Level  HI 

-  Track  continuously,  in  real-time,  Soviet  spacecraft 

Level  IV 

-  NO  requirements 

Surveillance  £  warning— the  act  of  watching  for  activity 

Level  0 

-  Detect  ICEM  launches  against  the  US 

Level  I 

-  Detect  ICBM/SU3M  launches  against  the  US 

Level  II 

-  Provide  attack  assessment  of  areas  under  ICEtySLEM  attack  to  aid 
response  selection 

-  Provide  general  count  of  weapons  per  target  area 

-  Provide  anti-jam  data  links 

-  Provide  nuclear/laser  hardening  &  autonomy  for  15  days 

Level  HI 

-  Provide  specific  target  assessment  and  accurate  count 

-  Provide  detection  and  tracking  of  Mgh-altitude  aircraft 

-  Provide  mobile  data  processing  far  satellite  data 

-  Provide  nuclear/laser  hardening  &  autonomy  for  180  days 

Level  IV 

-  Provide  detection  &  tracking  of  low-altitude  aircraft 

-  Provide  detection  of  cruise  missile  launches 

-  Provide  for  satellite  defensive  maneuverability 


Offense 


Level  I 


-  Deploy  space  satellite  tracking  system 

-  Provide  low  earth  orbit  interceptor  rocket,  laser) 
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Level  n 

-  Deploy  battle  management  control  station 

-  Provide  anti-jam  cxxmand  links  and  decoy  detection  in  the  space 
tracking  system 

-  Provide  weapons  to  engage  mid  earth  orbit  space  systems  (SIEM 
launched  nuclear  X-ray  lasers,  kinetic  energy  weapons,  rockets) 

-  Provide  weapons  for  attacking  large  fixed  targets  on  the  ground 

Level  HI 

-  Provide  mobile  battle  management  backup  control  station 

-  Provide  weapons  to  engage  high  earth  orbit  space  systems 

-  Provide  weapons  to  engage  time-urgent  ground  and  naval  targets 

Level  IV 

-  Provide  weapons  to  engage  large  Ship6  and  high-flying  aircraft 

level  V 

-  Provide  weapons  to  engage  all  ground,  air,  and  sea  targets 
Defense 


Level  I 

-  Deploy  space  satellite  tracking  system,  and  battle  management  control 
station 

-  Provide  weapon  to  engage  ICBM/SHMs  within  10  minutes  of  launch 
(ground-biased  laser,  directed  energy,  or  space-based  kinetic  energy 
weapons) 


Level  n 

-  Backup  battle  management  control  station 

-  Anti-jam  on  command  links  and  decoy  detection  in  tracking  system 

-  Provide  weapons  to  engage  ICHVSLEM  re-entry  vehicles  in  mid-course 
(space-based  lasers,  particle  beam  accelerators,  SIEM-launched 
nuclear  X-ray  laser,  kinetic  energy  weapons) 

-  Provide  weapon  to  engage  highraltitude  space  planes  and  aircraft 
(space-based  lasers,  particle  beams) 

-  Deploy  tracking  system  for  high-altitude  aircraft 

level  HI 

-  Mobile  battle  management  backup  control  station 

-  Provide  weapons  to  engage  re-entry  vehicles  in  re-entry  phase 
(ground-  &  air-launched  interceptor  rockets) 

-  Provide  survivable  high-  and  lew-altitude  sensor  systems 
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Level  IV 


Deploy  weapon  to  engage  leer-altitude  targets  (laser,  particle  beam) 
g*md 

Level  0 

Shin-line  ground  based  tracking  radar/optical  network  for 
determining  orbit  parameters  (requires  multi-orbit  to  determine 
track) 

Level  I 

Central  ground  control  center  for  each  satellite  system 
-  Four  equidistant  equatorial  ground  relay  centers  for  each 
geosynchronous  satellite  system  to  relay  data  to  CONUS,  unless 
crosslinks  are  employed 

Level  II 

Single  consolidated  space  operations  center  to  control  all  satellite 
systems 

Single  orbit  satellite  track  determination 
Eliminate  overseas  ground  control  stations 
Anti-jam  control  links 

Level  HI 

Backup  for  consolidated  space  operations  center 
Continuous  global  tracking  of  space  objects 
Survivable,  mobile  ground  stations  for  satellite  control- 
Nuclear/laser  hardening  to  provide  15-days  autonomy  for  tracking 
network 

Level  IV 

Nuclear  hardening  to  provide  180-days  autonomy  for  tracking  network 
Provide  satellite  maneuverability 
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Air  Force  Beouiraments 

Ccppunicaticns 


Level  I 

-  9  color  video  (high-speed  digital)  and  18  wideband  voice  channels 
within  onus 

-  4  narrowband,  4  color  video,  20  wideband  voice  channels  frcm  Eastern 
CX3US  to  the  Pacific 

-  4  narrowband,  4  color  video,  8  wideband  voice  channels  from  Eastern 
onus  to  Europe 


Level  n 

-  96  narrowband  and  96  wideband  voice  channels  for  secure 
cxxnunications  within  onus 

-  27  narrowband  and  27  wideband  voice  channels  for  secure 
cxxnunications  frees  Eastern  CCNUS  to  Europe 

-  10  narrowband  and  10  wideband  voice  channels  for  secure 
cxrrmmications  from  Eastern  onus  to  the  Pacific 

-  2  narrowband  and  2  wideband  voice  channels  for  secure 
cxvnunications  frcm  Eastern  OCNUS  to  South  America 

Level  HI 

Level  IV 


launch 


Level  I 


-  1  heavy-lift,  every  6  months 

-  1  medium-lift,  every  1.5  months 

-  1  li^it-lift,  every  month 

Level  H 

-  1  heavy-lift,  every  3  months 

-  1  medium-lift,  every  month 

-  1  light-lift,  every  month 

Level  HI 

-  1  super-heavy-lift,  every  6  months 

-  1  heavy-lift,  every  month 

-  1  medium-lift,  every  3  weeks 

-  1  light-lift,  every  week 
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Level  IV 

si3per-heavy-lift ,  every  month 
heavy-lift,  every  month 
medium-lift,  every  7  days 
light-lift,  every  7  days 
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civii-ia^/NASA  Recnoireroents 
far  Space  Systems 


Annual  launch  Requirements 

Level  I 

-  9  licjht.-lift  launches 

-  4  medium-lift  launches 

-  1  heavy-lift  launch 

-  3  shuttle  launches 

Level  U 
Level  li.il 

-  1  super-heavy-lift  launch 

Level  IV 

-  2  super-heavy-lift  launches 


Civilian  Use  2f  Military  Satellites 


aroounications 

Level  I 

-  27  narrowband  and  27  wideband  voice  channels  for  secure  embassy 
ccnmmicaticns  from  Wash  DC  to  Europe 

-  2  narrowband  and  2  wideband  voice  channels  for  secure  embassy 
cxxnunicaticns  from  wash  DC  to  Canada 

-  5  narrowband  and  5  wideband  voice  channels  for  secure  embassy 
canaunications  from  Wash  DC  to  Northern  Europe  and  the  Soviet  Union 

Level  U 

-  18  nanxwband  and  18  wideband  voice  channels  for  secure  embassy 
ocxnunicaticns  from  Wash  DC  to  East  Asia 

-  14  narrowband  and  14  wideband  voice  channels  for  secure  embassy 
oconunicaticns  from  Wash  DC  to  Southwest  Asia 

-  22  nanxwband  and  22  wideband  voice  channels  for  secure  embassy 
ccnmunications  fran  Wash  DC  to  Australia  and  the  South  Pacific 
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Level  HI 


-  12  narrt**band  and  12  wideband  voice  channels  for  secure  embassy 
cxassanicaticns  fran  Wash  DC  to  the  Caribbean  and  Central  America 

-  13  narrowband  and  13  wideband  voice  channels  for  secure  embassy 
ccamunicaticns  fran  Wash  DC  to  South  America 

-  39  narrowband  and  39  wideband  voice  channels  for  secure  embassy 
ccranunicaticns  fran  Wash  DC  to  Africa 

Level  IV 

-  5  narrowband  and  5  wideband  voice  channels  for  secure  embassy 
communications  fran  Wash  DC  to  Southern  Africa  and  Southern  South 
America 

Weather 

Level  I 

~  low  resolution,  day  video  and  imagery  of  the  world  for  weather 
forecasting,  every  48  hours 

-  Real-time,  low  resolution  day  imagery  for  storny'earthquaka  tracking 
around  the  world 

Level  n 

-  Median  resolution  day  and  low  resolution  night  imagery,  every  24 
hours,  over  the  US,  Atlantic,  and  Pacific 

Radiometric  data  of  water  vapor  and  carbon  dioxide  to  make  it 
possible  to  determine  the  3 -dimensional  structure  of  the  atmosphere, 
including  its  temperature  and  humidity 

wavtoatign 

Level  X 

-  100-meter  ocntirwcus  resolution  for  ship  navigation  in  bays  and 
harbors 

-  50-mater  resolution  for  tracking  trains 

-  1000-meter  resolution  for  aircraft  navigation  and  semi-tractor 
traffic  tracking 

-  30-centimeter  resolution  (integrated)  for  surveying. 

Sswsl  n 

-  15-meter  resolution  for  .ciircraft  larding  approach 


Level  131 

-  10^»eter  resolution  for  autera&tic  autm&ilenav^ 


mS&  Rectuirsroentg 

figagmisafciag 

Level  0 

-  One-way,  teletype  broadcast  to  Pacific,  US,  Atlantic,  and  Europe 
frctn  the  central  US 

Level  I 

-  16  wideband  voice  channels  within  the  US  for  National  Ccmnand 
Authority  (NCA)  conferencing 

-  l  wideband  voice  channel  to  Europe  and  1  to  Pacific 

-  20  color  video  (high-speed  digital)  channels  within  OCNUS,  2  to 
Europe,  and  2  to  Pacific  for  WWMOCS 

-  40  narrowband  channels  within  CCNUS,  4  to  Pacific,  and  4  to  Europe 
far  force  control 

-  1  broadcast  teletype  to  Pacific,  US,  Atlantic,  and  Europe  from  the 
central  US  with  medium  anti-jam  for  force  execution 

Level  n 

-  20  narrowband  channels  with  medium  anti-jam  within  CCNUS 

-  20  narrowband  charnels  with  medium  anti-jam  from  CCNUS  over  the 
North  Pole 

-  2  narrowband  channels  with  high  anti-jam  to  Europe,  2  to  Pacific, 
and  1  to  Indian  Ocean 

-  Satellite  autonomy  for  15  days 

Level  in 

-  5  wideband  voice  charnels  with  high  anti-jam  within  CCNUS  for  force 
planning,  1  back  tc  Europe,  Pacific,  and  Indian  Ocean 

-  1  narrowband  teletype  broadcast  to  US,  Europe,  Pacific,  and  Indian 
Ocean,  with  high  anti-jam 

-  20  narrowband  teletype  channels  with  high  anti-jam  for  force 
reporttoadc  over  the  OCNUS  and  North  Pole 

Level  IV 

-  All  level  I  reqs airecaante  with  high  anti-jam 

-  laser/nuclear  hardening  for  180  days  of  autcncay 


Level  I 


-  I m  resolution  day  video  for  24-hour  weather  prediction 


Level  U 

-  Track  solar  storm  activity  for  high  frequency  (HF)  cxrri  micaticm 
frequency  selection  and  satellite  cannunication  link  noise  problem 
assessment 

-  Anti-jam  down-link 

-  Lew  resolution  day/night  video  and  imaging  every  24  hours  for  48 
hour  weather  prediction 

Level  m 

-  Temperature  profile  and  medium  resolution  day/night  video  and  image, 
every  12  hours,  for  5-day  weather  prediction 

-  Search-and-resc'  beacon  tracking 

-  laser/nuclear  hardening  far  15-day  autonomy 

-  Measure  ocean  currents  and  temperature 

Level  IV 

-  Cloud  height  and  high  resolution  day/night  video/image  of  Northern 
Hemisphere  far  storm  tracking  and  lcw-level  aircraft  flight  planning, 
every  6  hours 
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Level  0 

-  Open  sea  and  transcontinental  navigation  (1000-meters 
accuracy) 

Level  I 

-  Air  traffic  control  and  harbor  navigation  (100-meters  accuracy) . 

Aid  improved  bombing  accuracy 

Level  U 

-  Coastal  inland  waterway  navigation  (50-meters  accuracy) 

-  Improved  bombing  accuracy  combined  with  inertial  navigation  system 
(INS)  (80-meters  accuracy) 

-  Laser/nuclear  hardening  for  15-days  satellite  autonomy 

Level  in 

-  Small  craft/air  and  sea  navigation  in  high  density  areas  (15-meters 
accuracy) 

-  Day/night  blind  bombing  (25-meters  accuracy) 

-  Non-precision  landing  approach  (12-meters  accuracy) 

-  180-days  satellite  autonomy  and  endurability 
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Level  IV 


-  High  accuracy  pinpoint  blind  boobing  (5-meters  accuracy) 

-  Aircraft  low-level  penetration  aid  (6-meters  accuracy) 

-  Encrypted  down-link 

-  Proliferation  or  defensive  maneuverability  far  survivability 

fiassxsisssQgs 


Level  I 

-  low  resolution  day/night  imagery  to  determine  ICEM  and  STEM 
compliance  with  treaties.  Update  required  every  2  weeks 

-  Ability  to  determine  that  a  nuclear  detonation  has  occurred  within  a 
given  country 


level  n 

-  low  resolution,  day/night  imagery,  every  7  days,  far  tracking  troop 
movements,  mobile  ICEMs,  and  far  strategic  warning 

-  Provide  location  of  large  ships  at  sea,  every  7  days 

-  Identify  general  location  of  naval  activity  of  smaller  naval  ships, 
every  7  days 

-  Provide  real-time  reporting  of  nuclear  detonations  with  medium 
location  and  yield  accuracy 


Level  m 

-  low  resolution,  day  video  and  medium  resolution,  day  imagery,  every 
7  days 

-  Tracking  of  large  ships,  every  24  hours 

-  Identify  SAM  radar  sites  and  missile  frigate  location  with  medium 
accuracy,  every  48  hours 

-  laser/nuclear  hardening  for  15  days  of  satellite  autonomy 

-  Mobile  ground  processing  system 

Level  IV 

-  Medium  resolution  day/night  video  for  tracking  troop  formations, 
every  48  hours 

-  Tracking  of  ships  every  24  hours  with  short  periods  (1  hour)  of 
real-time  tracking 

-  Bead-time  tracking  of  large,  higli-altitude  aircraft 

-  Baal-time  high  location  nuclear  detonation  detection  accuracy  with 
medium  accuracy  yield  and  weapon  type  identification 

-  Trade  mobile  SAMs  and  AAA,  every  6  hours 

-  Anti-jam  on  control  links 

-  Laser/nuclear  hardening  for  180-days  auteneny 
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Level  V 


-  High  resolution  day/night  imagery  for  target  analysis  with  real-time 
down-link 

-  Real-time  tracking  of  low-altitude  aircraft  movements 

-  High  accuracy  location,  yield  and  weapon  typing  of  nuclear 
detonations  over  the  Northern  Hemisphere 

-  Real-time  tracking  of  mobile  SAMs,  AAA  aircraft,  and  ships 

-  Anti-jam  on  all  data  links 

-  Defense  maneuverability  for  the  sensor  satellite 

Offense 


Level  0 
Level  I 
Level  n 

-  Attack  time-urgent,  strategic  targets  as  part  of  executing  the  Single 
Integrated  Operations  Plan  (SIOP) 

Level  in 

-  Non-nuclear  attack  on  hard  industrial  targets.  Require  non-nuclear 
to  minimize  collateral  damage  and  casualties 

Level  IV 


-"  Attack  airborne  interceptors 
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noirnmi Gabions  (4  lheaters-~CEtfIKAL  AMERICVUS,  PACIFIC, 
MIAtniC/nJROHE,  INDIAN/ASIA.  Identical  requirements  for  each 
theater.) 


Level  I 

-  1000  narnosband,  intra-theater  channels 

-  10  high-speed  digital,  intra-theater  channels 

-  50  wideband,  intra-theater  voice  channels 

-  20  narrowband,  intra-theater  computer  channels 

Inter-theater  requirements  to  CGRUS  are: 

-  20  narrowband  channels 

-  2  high-speed  digital  channels 

-  4  narrowband  computer  channels 

-  4  wideband  voice  channels 


Level  H 

-  50  medium  anti-jam,  intra-theater  channels 

-  1  medium  anti-jam,  intra-theater  voice  channel 

-  1  high  anti-jam,  intra-theater  broadcast  teletype 

Level  HI 

-  4  high  anti-jam,  intra-theater  wideband  voice  channels 

-  1  high  anti-jam,  inter-theater  wideband  voice  channel 

-  Satellite  autonomy  of  15  days 


Level  0 

-  Opel  sea  and  transcontinental  navigation  (1000-meter  accuracy) 

Level  I 

-  Air  traffic  control  and  harbor  navigation  (100-meter  accuracy) 

-  Improved  barbing  accuracy  (150-meter  accuracy) 

Level  H 

-  Improved  artillery  and  rocket  accuracy  (50-meter  accuracy) 

-  Improved  barbing  accuracy  with  inertial  navigation  system  (INS) 
(80-meter  accuracy) 
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level  m 

-  Air  and  sea  navigation  in  high  density  areas  (15-meter  accuracy) 

-  Day/ni^it  blind  boobing  (25-meter  accuracy) 

-  Near  precision  landing  approach  (12-meter  accuracy) 

Level  IV 

-  low-level  aircraft  penetration  aid  (6-meter  accuracy) 

-  Encrypted  down-link 

Weather/Meteoroloov 

Level  I 

-  low  resolution,  day  video  for  24-hour  weather  prediction 

Level  U 

-  Medium  resolution,  day/night  video  and  imaging,  every  12  hours,  for 
daily  mission  planning 

Level  HI 

-  Anti-jam  and  encryption  of  data  links 

-  Radiometer  (temperature  profile)  of  ocean  currents,  surface  winds, 
and  cloud  height  for  naval  engagements  and  low-altitude  missions, 
every  12  hours 

-  Continuous  search-and-rescue  beacon  tracking 

Level  IV 

-  High  resolution,  day/night  video  imagery  for  storm  tracking  and 
mission  planning,  every  6  hours 

-  Medium  resolution  imaging  on  demand  from  the  equator  to  60  degrees 
North 


£gSSEX@2£§aDS§ 


Level  I 


-  Law  resolution,  day/night  imagery  every  7  days  for  troop  movement 
tracking  and  strategic  warning 

-  Provide  location  of  large  ships  at  sea,  every  7  days 
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Level  II 


-  Medium  resolution  day  imagery  for  target  identification,  every  14 
days 

-  Tracking  of  large  ships,  every  24  hours 

-  Identify  general  location  of  naval  activity  of  smaller  naval  ships, 
every  7  days 

-  Identify  SAM,  radar  site,  and  missile  frigate  location  with  medium 
accuracy,  including  target  identification,  every  7  days 


Level  HI 

-  Real-time  reporting  of  nuclear  detonations 

-  Medium  resolution,  day/night  video  for  crisis  management 

-  Track  mobile  SAMs,  AAA,  and  radars,  every  6  hours 

-  Anti-jam  on  data  links 


Level  IV 

-  High  resolution,  day/night  imaging  for  target  analysis  using 
real-time  down-link 

-  Track,  in  real-time,  mobile  radio  and  ocranunications  emitters 


giffiveillanoe 

Level  0 
Level  I 

-  Map  accuracy  of  1:1,000,000 

-  Detect  short-range  and  medium-range  rocket  launches 

Level  n 

-  Provide  anti-jam  data  links 

Level  HI 

-  Provide  detectioiytracking  of  high-altitude  aircraft  and  large  ships 

Level  IV 

-  Provide  detecticn/t^^  of  all  aircraft  and  ccubatant  ships 

-  Kfep  accuracy  of  l: 100,000 

QZ&gm 


Level  I 


m  n«  r«F  r\F  -v*  T#s'Wf&i  w  iw  na  rx^Jg^sm^ 


Level  II 

-  Provide  non-nuclear  weapon  for  attacking  large  fixed  ground  targets 

-  Anti- jam  data  links 

-  Weapon  to  engage  high-altitude  space  plane  and  aircraft 

Level  HI 

-  Weapon  to  engage  time-urgent  ground  and  naval  targets 

Level  IV 

-  Weapon  to  engage  ships  and  low-flying  aircraft 
Defense 

Level  0 
Level  I 
Level  II 

-  Weapon  to  engage  high-altitude  space  plane  and  aircraft 

Level  HI 
Level  IV 

-  Weapon  to  engage  low-altitude  targets 
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Chairman.  agist 
Chiefs  g£  staff  ppqniTTPmAnts 

omntmi  rations — Responsible  for  inter-theater  national  level 
cxmnunications  through  Defense  Ccmoounicaticns  Agency 

Supports  all  inter-theater  requirements  included  in  TdNC  plus: 

Level  0 

-  4  wideband  voice  and  100  narrowband  channels  to  Europe 

Level  I 

-  9  wideband  voice  and  18  narrowband  channels  for  CNC  to  CJNC  secure 
ccmraunicaticns  within  CCNUS  with  low  anti-jam  capability 

Level  n 

-  9  color  video  channels  for  conferencing  between  the  CENCs  within 
OONUS 

-  Medium  anti-jam  for  the  channels  in  I  above 

Level  m 

-  High  anti-jam  for  the  channels  in  I  above 

-  Cannon  camrunicaticns  terminal  for  all  cxxnunications  systems 

Level  IV 

-  High  anti- jam  for  all  inter-theater  narrowband  (xnraunicaticns 
Reconnaissance 

Level  I 

-  lew  resolution,  daytime  imagery  for  ICBK  launcher  for  SALT 
verification 

-  lew  location  accuracy,  nuclear  detonation  detection  for  nuclear  test 
monitoring 

Level  H 

-  Medium  resolution,  daytime  video  and  imagery  for  SALT 
verification 

-  Medium  location  and  yield  accuracy  of  nuclear  detonations  for 
nuclear  test  monitoring 


84 


Level  in 


-  High  resolution,  daytime  imagery  for  SALT  verification 

-  High  accuracy  location  and  yield  of  nuclear  detonations  for  nuclear 
test  monitoring 

Level  IV 

-  Provide  nuclear/laser  hardening  and  autonomy  for  systems  in  HI 
above  for  15  days 

-  Provide  mobile  data  processing  for  systems  in  I,  II,  or  HI  above 


Ground  Control  £  lEas&LDg 

Level  I 

-  1  central  ground  control  center  for  each  space  system  plus  three  for 
geosynchronous  systems  unless  crosslinks  are  used 

Level  H 

-  Single  consolidated  space  operations  center  for  all  satellite  system 
control 

-  Hiree  relay  centers  for  geosynchronous  satellite  crosslinks  are  not 
used 

Level  HI 

-  Rachip  far  consolidated  space  operation  center 

-  Habile,  common  ground  station  for  nuclear  operations 

-  Crosslink  cxannunications  on  all  space  systems— to  remove 
dependence  on  overseas  ground  sites 

Level  IV 

-  Provide  satellite  maneuverability  for  high  anti-jam  cxamunications 
and  warning  systems 
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Appendix  C:  Scenario 


This  appendix  contains  the  information  listed  in  the  Scenario. 

This  information  consists  of  three  reports:  a  US  Space  Policy  Update, 
an  Intelligence  Report,  and  the  Space  Budget  provided  by  Congress  for 
that  turn,  lhe  Space  Policy  may  restrict  deployment  of  particular 
systems  or  may  place  additional  demands  on  the  military  launch  system 
to  meet  certain  civilian/NASA  demands.  Ihe  Intelligence  Report 
provides  information  on  space  activities  by  the  Soviet  Union.  Ihe 
scenario  provided  in  the  SRAE  game  was  modified  for  this  effort.  This 
scenario  is  generic  and  should  be  replaced  by  a  user  generated  scenario 
if  specific  objectives  are  to  be  taught. 


TORN  1 


US  POLICY:  Abide  by  all  current  space  treaties  and  conventions. 

INTEL  REPORT:  Soviet  activity  on  space  lab  and  shuttle  increasing. 

BUDGET:  $4.5  Billion 

TORN  2 

US  POLICY:  Abide  by  all  space  treaties  and  conventions  except 
Development  of  land-based  or  space-based  ballistic  missile 
defense.  Ballistic  missile  defense  baseline  consists  of  three 
levels:  boost,  midcourse  and  terminal.  Systems  required  for 
boost  are:  5  warning  satellites  and  160  laser  or  particle  beam 
battle  stations  in  high  earth  orbit.  Systems  for  midoourse  are: 
28,000  kinetic  energy  kill  weapons  or  150  particle  beam  weapons 
and  20  surveillance  satellites.  Systems  for  terminal  defense  are: 
140,000  ground-to-space  kinetic  energy/rocket  systemsor  1000 
ground-based  lasers.  Defense  is  intended  to  be  90%  effective. 

INTEL  REPORT:  Soviets  begin  space  station  construction.  Two 

surveillance  systems  were  temporarily  inoperative  while  over 
Soviet  union  —  unknown  cause. 

BUDGET:  $4.5  Billion 

TORN  3 

US  POLICY:  Continue  development  of  ballistic  missile  defense  systems. 

INTEL  REPORT:  Apparent  debris  in  low  earth  orbit  first  detected  over 
Soviet  union. 

BUDGET:  $5  Billion 

TORN  4 

US  POLICY:  Deployment  of  sensors  and  C3  for  ballistic  missile  defense 
is  authorized. 

INTEL  REPORT:  Construction  of  Soviet  space  station  continuing.  Space 
plane  and  shuttle  activity  increasing. 


BUDGET:  $6  Billion 


US  POLICY:  Push  for  space  arms  control*  Begin  Production  of  ballistic 
missile  defense  weapon  systems.  Push  for  nuclear  survivable  space 
system  ground  control  and  processing.  NCA  directs  minimum 
survivable  ground  control  systems  consisting  of  the  Consolidated 
Space  Operations  Center  (CSOC)  and  three  cannon  mobile  ground 
control  terminals  (CM3CT). 

INTEL  REPORT :  Soviet  space  station  reaches  initial  operational 

capability.  Shuttle  and  space  plane  flights  increasing.  Debris 
cleared  from  low  earth  orbit  by  the  Soviet  union. 

BUDGET:  $7  Billion 

TORN  6 

US  POLECYs  Continue  production  of  ballistic  missile  defense  systems. 

INTEL  REPORT:  Soviets  begin  moon  launches  from  the  space  station. 

Large  ground-based  laser  has  been  used  to  destroy  target  in  lew 
earth  orbit.  Direct  ascent  ASAT  missile  can  now  reach  middle 
earth  orbit.  Several  unidentified  objects  now  in  geosynchronous 
orbit. 

BUDGET:  $8  Billion 

TORN  7 

US  POLICY:  Deployment  of  space  defensive  systems  authorized.  No 

system  with  offensive  capability  against  air  and  surface  targets 
is  authorized. 

INTEL  REPORT:  Soviets  continue  working  on  direct  ascent  ASAT. 

BUDGET:  $7.5  Billion 

TORN  3 

US  POLICY:  Continue  deployment  of  defensive  systems. 

INTEL  REPORT:  Soviets  execute  a  ground  system  breakout  of  ABM  systems. 
Six  ground  lasers,  300  nw  ABM  missile  sites,  and  a  new  missile 
are  identified  as  under  construction.  Pour  new  unidentified 
systems  now  in  geosynchronous  orbit. 


BUDGET:  $8.5  Billion 


OS  POLICY:  Deployment  of  offensive  sensor  systems  authorized. 

INTEL  REPORT:  Four  unidentified  systems  in  geosynchronous  orbit  are 
probably  space  mines.  Soviet  defensive/offensive  space  sensors 
are  deployed. 

BUDGET:  $10  Billion 


TORN  10 

OS  POLICY:  Begin  acquisition  of  offensive  space  systems.  Push  arms 
agreement  on  space. 

INTEL  REPORT:  Soviets  test  a  particle  beam  weapon  in  space.  Soviets 
propose  elimination  of  all  beam  weapons  in  space. 


BUDGET: 


$10  Billion 


Appendix  D;  Users  Guide 


Description 

ADAM  allows  space  assets  to  be  acquired,  deployed,  and  maneuvered 
in  response  to  ground  requirements.  The  different  missions  modeled  in 
the  game  include:  Communication,  Navigation,  Weather,  Reconnaissance, 
Surveillance  (Attack  warning) ,  Launchers,  Launch  Pads,  and  Ground- 
Support  elements,  lhe  game  models  two  different  types  of 
Reconnaissance:  ELENT  (Electronic  Intelligence) ,  and  SIGINT  (Signal 
Intelligence) .  The  objective  of  ADAM  is  to  design  a  farce  structure 
which  meets  as  many  requirements  as  possible  while  operating  within  a 
limited  budget.  The  game  begins  with  the  current  (1987)  US  space  force 
and  continues  through  10  turns  (each  turn  is  one  year) . 

The  database  may  be  modified  if  specific  learning  objectives  are 
to  be  taught.  It  would  be  beneficial  to  the  user  to  keep  a  library  of 
different  databases. 

This  appendix  contains  a  rule  bock  for  players,  a  section  far  the 
game  controller,  and  hints  for  future  progranmers.  The  player  rule 
book  describes  how  to  play  ADAM.  The  game  controller  section  describes 
the  special  procedures  available  only  to  the  controller.  It  also 
includes  instructions  on  how  to  develop  a  new  database.  The  hints  for 
future  progranmers  contain  information  like  the  design  of  the  data  base 
and  how  to  add  new  mission  types. 
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Each  unit  in  the  game  is  identified  by  a  unique  name  and  tail 
number.  When  asked  to  input  a  unit,  the  player  must  type  the  name  and 
number  exactly  as  displayed  on  the  screen.  For  example,  if  the  name  is 
"FERRET-1",  the  player  should  not  enter  "Feroet-1".  All  the  units  in 
tdie  database  are  in  capital  letters,  so  the  players  shculd  keep  the 
"Caps  Lock"  key  cn.  The  program  will  tell  the  player  if  it  cannot  find 
a  unit.  All  cost  figures  are  in  terms  of  one  million  dollars. 
Therefore,  a  budget  of  4,500  represents  $4.5  Billion. 


2.0  Glossary  pf  Game  Terms 

Ascending  Node  -  Point  at  which  satellite  ground  trace  crosses  from 
Southern  Hemisphere  to  Northern  Hemisphere.  Used  as  the  point  over 
which  geosynchronous  satellites  hover. 

Altitude  -  Height  above  the  Earth’s  surface  of  satellite's  orbit. 

Height  is  defined  as  either  VIED,  LEX),  MED,  MOL,  or  GED. 

Ocnposite  Satellite  -  A  satellite  which  has  a  piggyback  system  which 
performs  its  cwn  mission,  can  contain  up  to  5  add-on  systems.  Each 
add-on  system  contributed  50%  of  its  mass  to  total  system  mass. 

GEO  -  Geosynchronous  Orbit  (37,000  km) . 

Game  Controller  -  Person  who  controls  game.  Reads  scenario,  interprets 
rules,  and  controls  SA3PAK  interface. 

Ground  Swath  -  Area  of  the  ground  which  the  satellite  can  view, 
function  of  mission  and  altitude. 

HLV  -  Heavy  Lift  Vehicle. 

Inclination  -  determines  amount  of  globe  overflown.  Defines  a 
sinusoidal  curve  which  the  satellite  ground  track  follows.  Two  types 
of  particular  interest: 

90  degrees  for  reocn  and  weather  satellites  and 
0  degrees  far  GED  satellites. 

LED  -  low  Earth  Orbit  (2,000  km) . 

IIV  -  Light  Lift  Vehicle. 


Glossary  of  Game  Teems  (cent. ) 


Lift  Capacity  -  Amount  of  mass  a  launcher  can  lift  to  a  particular 
orbit. 

MEO  -  Medium  Earth  Orbit  (20,000  km) . 

MLV  -  Medium  Lift  Vehicle. 

Milestone  -  Represents  different  stages  of  acquisition  cycle. 

Milestones  0,  1,  2,  3  correlate  to  Feasible,  Research,  Development,  and 
Production. 

Mission  -  Task  of  system.  Total  of  10:  Occnunicaticn,  Weather, 
Navigation,  Reocnl,  Reoon2,  Surveillance,  Weapon,  Grrxmd-Support, 
launcher,  and  launch  Pad. 

Molynia  -  Highly  elliptical  orbit.  Apogee  of  40,000  km  and  Perigee  of 
600  km. 

Multiple  launch  -  Placing  more  than  one  payload  on  a  launcher.  Extra 
payloads  add  75%  of  their  mass  to  overall  payload  mass.  Maximum  of  4 
payloads.  Must  be  launched  to  same  altitude. 

Orbit  -  defines  location  of  satellite  space.  Ocnposed  of  three 
parameters:  Altitude,  Inclination,  and  Ascending  Node. 

SIV  -  Super  Heavy  Lift  Vehicle. 

Status  -  Defines  condition  of  unit  at  any  particular  time.  Total  of  9: 
None,  Feasible,  Research,  Development,  Production,  Ready,  Active, 

Spare,  and  Dead. 

Survivability  Features  -  Enhancements  added  to  satellites  to  allow 
performance  of  mission  in  a  hostile  environment.  Can  add  to  mass  of 
system. 

Tech  Level  -  Defines  current  level  of  tedinology  within  each  mission 
area.  Research  may  not  begin  on  advanced  unit  before  development  has 
oonpleted  on  simpler  unit. 

VIED  -  Very  Low  Earth  Orbit  (200  km) . 


2.1  Game  Terminology,  a  game  unit  may  be  in  one  of  9  different 
statuses.  The  statuses  and  an  explanation  of  each  are  listed  in 
Table  VI. 
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Table  VI 


Unit  status  Definitions 


state# 

Psfinittai 

None 

The  technology  level  has  not  advanced  far  enough  to 
allow  research  to  have  begun  on  unit 

Feasible 

The  technology  level  has  advanced  far  enough  to 
allow  research  to  begin  on  the  unit 

Research 

The  research  required  for  the  unit  has  been 
ocnpleted 

Development 

The  development  phase  for  the  unit  has  been 
completed 

Production 

The  unit  has  completed  production  and  is  waiting 
far  the  ground  support  element  to  be  ocmpleted 

Ready 

The  unit  has  its  ground  support  elements  and  is 
ready  far  launch 

Active 

The  unit  is  operational 

Spare 

The  unit  is  dormant,  it  does  not  bum  fuel  and  does 
not  age 

Dead 

The  unit  has  failed  due  to  natural  causes  or  by  a 
launch  accident 

There  are  five  different  orbit  types  used  in  the  game.  The  type, 
altitude,  and  usefulness  are  listed  in  Table  VU.  The  altitude  is 
given  in  km  above  the  earth's  surface.  All  the  orbits,  except  the 
Molniya,  are  considered  circular. 


Table  VH 


Orbit  Descriptions 

Tag  aitifegs  (Krai 

VIEO  200 

(Very  Lew  Earth  orbit) 


LEO  2000 

(Low  Earth  Orbit) 


MEO  20000 

(Medium  Earth  Orbit) 


Saagggfcea  Missises 

Reconnaissance 

Weather 


Navigation 


MOL  *  40000  X  600 

(Molynia  Orbit) 


GED  37000 

(Geosynchronous  Orbit) 


Osnunication 

Surveillance 


♦entry  indicates  an  apogee  of  40,000  km  and  a  perigee  of  600  km 


3.0  Plaver  Descriptions 

ADAM  is  designed  for  multiple  players  in  a  seminar  type 
environment.  The  exact  number  and  responsibilities  can  be  modified  as 
necessary;  however,  there  is  a  required  subset  of  players  which  should 
be  present  to  play  the  game.  This  subset  is  a  modification  to  the 
players  in  the  SRAE  game  (20:14) .  The  players  and  their 
responsibilities  are  listed  in  Table  vm. 
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Table  VHI 


Li 


Plaver 

Chairman,  Joint  Chief 
of  Staff 

CENCSPACE 


Space  Division 
NASA 

NdNC 

TdNC 

Controller 


Player  Positions 

Fegpqreiftiliiy 

Overall  Oonwander 

Determines  operational  requirements  and 
orbital  parameters 

Responsible  far  system  R&D  and  production 


insures  the  necessary  cxmnercial 
requirements  as  dictated  in  scenario  are 
included  in  operational  decisions 

Strategic  Warfare  Requirements 

Tactical  Warfare  Requirements 

Reads  Scenario,  interprets  rules,  and 
controls  the  SA3RAK  interface 


4.0  The  6-Base  Turn  Sequence 

ADAM  consists  of  ten  one-year  turns.  Each  turn  contains  the 
following  phases: 


Turn  Sequence 

1.  Read  Scenario  Base  (done  by  controller) 

2.  Database  Update  Phase  (done  by  ocnputer) 

3.  Acquisition  Base 

4.  Assign  Ground  Support  Base 

5.  Deployment  Base 

6.  Scoring  Base  (done  by  controller) 
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The  players  continue  through  these  phases  until  the  end  of  turn  ten  or 
at  the  discretion  of  the  game  controller.  Each  of  the  above  phases  is 
explained  briefly  below  and  in  detail  in  pages  98  through  123. 

4.1  Rftad  Scenario  Brase.  in  this  phase,  the  Game  Controller  gives  the 
players  the  scenario.  The  scenario  describes  the  conditions  the 
players  must  abide  by  far  that  turn. 

4.2  Update  Ehase.  In  this  phase,  the  computer  advances  the 
status  of  units  upgraded  last  turn.  A  .satellite  system  failure  check 
is  also  done  in  this  phase. 

4.3  Acquisition  fJss§.  In  this  phase,  the  players  give  orders  for 
units  to  begin  the  next  Milestone. 

4.4  Assign  Ground  Support  Ehase.  In  this  phase,  the  players  assign 
the  ground  support  element  to  satellites  about  to  be  launched.  A 
satellite  may  not  be  launched  until  it  has  a  ocnpleted  ground  support 
system. 

4.5  Deployment  Ehase.  In  this  phase,  the  players  match  satellites  to 
be  deployed  with  a  launch  vehicle.  The  player  may  create  ocnposite 
satellites  or  initiate  a  multiple  payload  launch.  The  player  may  also 
maneuver  active  satellites  or  put  them  in  a  spare  status. 

4.6  Scoring  Ehase.  (optional)  In  this  phase,  the  Game  Controller 
evaluates  the  active  space  force  and  measures  how  effectively  it  meets 
the  ground  requirements. 


Hie  Game  Controller  should  ensure  the  system  has  been  booted  up 
and  the  proper  database  loaded.  Mien  the  system  has  warmed  up  and 
prompts  the  user  with  enter  "ADAM",  to  start  the  game.  After  the 
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game  has  loaded,  it  will  prompt  the  controller  to  load  the  database. 

The  controller  should  enter  the  name  of  the  database  designed  to  teach 
that  day's  lessons. 

If  the  SMRAK  program  is  used,  the  controller  enters  "SAXRAK25"  to 
start  the  program. 

6.0  Read  Scenario  fliase 

In  this  phase,  the  Game  Controller  gives  the  players  the  scenario. 
Hie  scenario  describes  conditions  the  players  must  abide  by  for  that 
turn.  Hie  scenario  includes  the  space  budget  provided  by  Congress  far 
the  turn,  a  US  Space  Policy  Update,  and  an  Intelligence  Repeat  of 
probable  Soviet  space  activities.  Hie  Policy  Update  may  restrict 
deployment  of  particular  systems  or  may  place  additional  demand  on  the 
military  launch  system  to  meet  certain  civiliaryNASA  demands.  Hie 
Intelligence  Report  provides  information  on  space  activities  of  other 
countries.  This  report  certains  information  lite  the  possible 
deployment  of  new  weapons  or  the  activation  of  a  space  station. 
Scenarios  can  be  modified  as  needed  to  reflect  the  current  learning 
objectives. 

Scenario  Example.  Hie  following  is  an  exasple  of  a  one-turn 

environment  provided  by  a  Scenario. 

US  Policy:  Begin  deployment  of  ballistic  missile 

defense  system. 


Intel  Report:  Soviets  continuing  construction  of 
Space  station.  Space  plane  now 
operational. 

BUDGET:  $10  Billion 

7.0  update  Jjba&S 

This  phase  is  accomplished  by  the  computer  and  is  transparent  to 
the  players;  however,  they  should  understand  what  the  program  does  in 
this  phase.  In  the  Database  Update  Phase,  the  computer  updates  idle 
status  of  units,  performs  a  satellite  system  failure  check,  assesses 
unit  OSM  costs,  and  determines  the  current  Tech  Level  of  each  mission. 
Included  in  this  section  is  a  description  of  Idle  above  functions  and 
examples  of  their  applications. 

Upgrade  units.  In  this  phase,  the  computer  advances  the  status  of 
units  currently  being  upgraded.  Each  unit  in  the  database  contains  an 
update  field  that  maintains  the  time  remaining  to  complete  the  next 
phase  in  the  acquisition  cycle.  If  the  upgrade  required  two  years,  the 
update  field  will  be  changed  from  a  "2"  to  a  "l".  This  indicates  the 
unit  will  complete  its  upgrade  the  following  year. 

Database  Update  fifllK&S*  In  year  1988  the  DSCS  HE,  fail  number 
6,  satellite  has  completed  its  development  phase  and  awaits  an  upgrade 
to  begin  production.  The  order  to  begin  production  is  given  in  the 
Acquisition  Phase  of  year  1988.  The  update  field  of  DSCS  II  #6  is  set 
to  "2"  to  indicate  the  upgrade  (production)  will  fake  two  years.  In 
the  Database  Ipdate  Phase  of  year  1989,  the  update  field  of  the 
satellite  is  changed  to  Ml"  to  indicate  there  is  one  year  left  in  the 
Production  Phase.  Finally,  in  the  Database  ipdate  Phase  of  year  1990, 


the  update  field  of  DSCS  H  #6  is  set  to  N0N  to  indicate  that 
production  has  been  completed. 

System  Failure  Check.  The  computer  performs  a  system  failure 
check  far  all  active  satellites  every  turn.  The  probability  of  failure 
for  a  satellite  is  .3%  per  year  far  its  first  active  year,  and 
increases  as  the  satellite  ages.  When  the  satellite  is  two  years  from 
its  expected  lifetime,  the  probability  of  failure  is  8%.  When  the 
satellite  reaches  its  expected  lifetime,  the  probability  of  failure  is 
58%.  The  program  automatically  "kills"  a  satellite  if  it  survives  one 
year  past  its  expected  lifetime. 

teMB  OfiM  Posts.  During  this  phase,  the  Operations  and 
Maintenance  (004)  costs  far  the  active  ground  support  units  and  launch 
pad  facilities  are  assessed. 

n»»twnHrw  Tech  Level.  During  this  phase,  the  ocnputer  also 
determines  the  current  Technology  (Tech)  Level  of  the  Defense  Industry 
in  each  mission  area  (Ocmmunicaticn,  Navigation,  etc.) .  The  current 
Tech  Level  greatly  inpacts  the  space  force  structure.  It  determines 
the  feasibility  of  a  system.  A  feasible  system  indicates  technology 
has  reached  a  sufficient  level  to  begin  research  on  that  system.  Far 
example,  research  on  the  MELSTAR  2  satellite  system  nay  not  begin  until 
the  necessary  technology  has  been  developed  by  the  MIISIAR  1  satellite 
system.  At  least  one  MTIETAR  1  satellite  must  complete  its  development 
phase  before  research  may  begin  on  the  MHSTAR  2  system. 

Ted>  Level  Example .  An  example  using  DOD  milestones  may  better 
define  this  important  concept.  Milestone  2  (Development)  far  MH&XAR 
1,  tail  number  1,  began  in  the  Acquisition  Base  of  year  1989.  It  will 


take  two  years  for  this  upgrade,  so  Milestone  2  far  this  unit  is  5 

scheduled  far  ccnpletion  in  the  Database  Update  Hiase  of  year  1991.  D 

I 

Research  cannot  begin  on  MUSTftR  2  until  the  required  technology  is 
developed  by  the  MTLSTAR  1  system;  therefore,  MELSTAR  2  will  not  3 

ocnplete  Milestone  0  (Feasible)  until  the  Acquisition  Hiase  of  year  3 

1991.  Finally,  in  the  Acquisition  Hiase  of  1991,  the  player  may  then  [ 

begin  work  on  Milestone  1  fear  12ie  MHSIAR  2  systan.  j 

k 

i 

8.0  ftsaaisifeLa?  Bass  j 

This  is  the  first  of  three  phases  in  which  the  player  directly  < 

interacts  with  the  aenputer.  The  Main  Menu  far  the  Acquisition  Hiase  \ 

i 

is  displayed  in  Figure  1.  ! 

i 

Acquisition  Hiase 

< 

ftnaining  10000  ] 

Year:  1987 

[1]  Display  Satellite/Reus  ible 
launcher  ACS  Screen 

[2]  Display  Launcher  ACB  Screen 

[3]  Add  Survivability  Features 

[4]  Display  Unit  Attributes 

[5]  Constellation  Age  Screen 

[6]  Display  Orbits/Maneuver  Sats 

[7]  Show  Mission  Ground  Traces 
[Q]  Quit  to  Next  Hiase 

Figure  1.  Acquisition  Hiase  Main  Menu 
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launcher  £££  Screen.  Enter  a  "1"  from 


the  Acquisition  Phase  Main  Mem  to  access  the  Satellite/Reusable 
launcher  Acquisition  Cycle  Board  (ACB)  Screen.  The  ACS  Screen  lists 
all  the  satellites,  support  elements,  and  reusable/recyclable  launcher 
units  currently  in  the  acquisition  pipeline.  The  units  are  listed  by 
name  and  tail  number.  The  status  headings  on  the  screen  (FEASIBLE, 
RESEARCH  DEVELOPMENT,  and  PRCOUCTICN)  roughly  correspond  to  the 
Milestones  0,1,2,  and  3  respectively  as  defined  in  DOD  5000.1.  An 
exanple  of  the  Satellite  ACB  Screen  is  displayed  in  Figure  2. 

SATELLITE  ACQUISITION  BOARD  YEAR:  1987 

*  indicates  unit  has  been  Upgraded 


BUDGET: 

10000 

MISSION 

FEASIBLE 

RESEARCH 

DEVELOPMENT 

PRODUCTION 

COMM 

MTLSTAR  1 

*dscs  in  1 

DSCS  n  2 

AESATOCM  4 

SIGINT 

EERRET-4  1 

FERRET-3  3 

FERRET-3  2 

LAUNCHER 

MLV  1 

I LV  1 

*STS-1  5 

mm 

WARNING 

SEWS-2  2 

SEWS-2  1 

♦SEWS  4 

- 

WEATHER 

— 

_ 

*EK3P  5 

EKSP  4 

Enter  Name  of  unit  to  be  updated  (DSCS  II,  SEWS-2,  etc.) :  SEWS-2 
Enter  tail  nunber  ("0"  will  create  new  copy) :  2 

Figure  2.  Satellite/Reusable  Launcher  ACB  Screen 

To  update  a  unit  on  the  ACB  Screen,  enter  the  name  and  tail  number 
exactly  as  they  appear  on  the  screen.  If  the  unit  name  is  "EAGLE",  do 
not  enter  "Eagle".  Once  the  name  and  tail  number  are  entered  the 
screen  will  show  the  current  state  of  all  the  unit's  attributes.  These 
attributes  contain  information  such  as  the  unit's  mass,  its  expected 


lifetime/  and  a  list  of  any  modifications  done  to  the  unit.  The 
attributes  also  contain  the  current  status  of  the  unit.  The  screen 
will  then  show  how  much  the  upgrade  will  cost  and  ask  for  a  go-ahead. 

If  the  player  types  "Y",  the  unit  will  begin  the  next  stage  in  the 
acquisition  cycle.  The  player  should  notice  the  budget  has  been 
decremented  to  reflect  this  upgrade.  They  should  also  notice  an 
asterisk  is  placed  next  to  the  unit  name  indicating  the  unit  is  being 
upgraded. 

The  ACS  Screen  will  only  show  units  currently  in  the  acquisition 
pipeline.  It  will  not  show  satellites  ready  for  launch  or  ones  that 
have  already  been  deployed.  The  player  may  add  copies  of  a  unit  which 
is  on  the  ACS  Screen  or  one  that  has  already  been  deployed.  This  copy 
will  be  given  the  next  available  tail  number  of  that  system  type.  For 
example,  four  DSCS  H  satellites  have  been  deployed  and  there  are  no 
more  in  the  acquisition  pipeline.  To  add  another  DSCS  II  satellite, 
the  players  enter  the  name  of  the  satellite  ("DECS  II")  and  then  a  tail 
number  of  "0".  The  program  will  then  put  a  DSCS  II,  tail  number  5,  on 
the  ACS  screen.  The  new  unit  is  placed  in  the  Research  stage  and  is 
then  processed  just  like  the  units  which  began  the  game  on  the  ACB 
screen.  When  development  begins  on  a  launch  Pad,  the  program  will  ask 
the  player  where  to  construct  the  Pad.  The  player  has  two  choices: 
Vandenberg  or  Canaveral.  Once  the  location  is  set,  it  cannot  be 
changed. 

Display  launcher  ACB  Screen.  Enter  a  "2"  from  the  Acquisition 
Ihase  Main  Menu  to  aooess  the  launcher  ACB  Screen.  This  screen 
displays  all  the  expendable  launchers  in  the  acquisition  pipeline.  The 


expendable  launchers  have  a  different  acquisition  cycle  than  the  other 
units  in  the  game.  The  necessary  technology  has  already  been  developed 
for  the  launchers;  therefore,  they  skip  the  Feasible  and  Research 
phase.  The  launcher  ACS  Screen  displays  the  name  and  number  of  all  the 
expendable  launchers  currently  in  the  Development  and  Production  fhase. 
It  also  shows  the  number  which  are  currently  available  to  launch.  As 
an  aid  to  the  player,  the  screen  also  shows  the  number  of  launchers 
currently  in  transition  between  the  phases. 

Add  Survivability  Features.  Enter  a  M3M  from  the  Acquisition 
fhase  Main  Menu  to  access  the  Add  Survivability  Features  Screen.  The 
players  must  enter  the  name  and  tail  number  of  the  unit  they  want 
modified.  This  screen  lists  the  seven  enhancements  which  may  be  added 
to  satellites  to  allow  them  to  perform  better  in  a  hostile  environment. 
It  also  displays  the  cost  of  the  features  and  which  features  axe 
currently  incorporated  into  the  satellite.  An  example  of  the 
Survivability  Features  Screen  is  listed  in  Figure  3.  This  screen  shows 
the  name  of  the  satellite  being  modified,  the  current  mass,  the 
remaining  year's  budget,  and  the  seven  different  survivability  factors 
which  may  be  added  to  the  satellite.  The  cost  of  each  modification  is 
also  listed  on  the  screen.  Some  modifications  (5, 6, and  7)  also 
add  mass  to  the  satellite.  If  the  player  picks  one  of  these 
modifications,  the  ccnputer  displays  the  modified  mass  and  requests 
confirmation.  The  player  is  allowed  to  change  his  mind  about  the 
modification.  By  entering  the  same  modification  number,  the  ccnputer 
will  remove  that  survivability  aspect,  it  will  also  update  the 
budget  and  satellite  mass  accordingly.  There  are  seme  satellites 


"+"  Indicates  unit  already  has  that  feature 
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[1]  Anti-vT aay/nuclaar  protection  on  data/control  links 


[2]  Low  Anti-Jam  nuclear  protection  on  OCM  links 


[3]  Medium  Anti-Janv'nudear  protection  on  OCM  links 


[4]  High  Anti-Jany/nuclear  protection  on  OCM  links 


[5]  laser/nuclear  hardening  and  15  Day  autonomy 


[6]  Laser/nuclear  hardening  and  180  Day  autonomy 


[7]  Satellite  maneuverability  (Cost  is  per  maneuver) 


Enter  1-7  or  "Q**  to  quit 


Figure  3.  Survivability  Features  Screen 


which  cannot  be  modified  because  of  the  satellite  system  design. 


These  units  have  an  "X"  in  their  first  survivability  attribute.  The 


program  will  not  allow  these  satellites  to  be  modified.  There  are  also 


seme  satellites  which  have  survivability  features  built  into  the  system 


design.  The  players  must  recognize  the  added  weight  these  measures  add 


to  the  system.  If  too  many  features  are  inaarperated,  the  system  may 


become  too  heavy  to  launch.  Enter  "Q"  to  go  bade  to  the  Main 


Acquisition  Phase  Menu. 


Display  unit  Attributes.  Enter  a  N4M  from  the  Acquisition  Phase 


Main  Menu  to  access  the  Display  unit  Attribute  Screen.  The  players 


must  enter  the  name  and  tail  umber  of  the  unit  they  wish  to  see.  This 


screen  lists  the  current  state  of  all  the  unit's  attributes.  These 


attributes  differ  somewhat  between  mission  types  (OCttf,  NAV,  etc. ) . 


The  attributes  contain  information  such  as  the  mass  of  the  unit,  when 
it  was  deployed,  and  what  ground  support  elements  have  been  assigned. 

If  the  program  cannot  find  the  requested  unit,  it  generates  a  message 
which  says  the  unit  was  not  found.  Hit  any  key  to  return  to  the 
Acquisition  Base  Main  Menu. 

Constellation  Aoe  Seamen.  Enter  a  "5"  from  the  Acquisition  Base 
Main  Menu  to  access  the  Constellation  Age  Screen.  The  players  indicate 
which  mission  they  want  to  view.  This  screen  gives  a  health-status 
check  of  a  mission's  constellation.  An  example  of  the  screen  is 
displayed  in  Figure  4.  The  screen  displays  the  name  and  tail  number  of 
all  deployed  systems  (active  and  spare)  of  that  mission.  It  also  shews 
the  expected  lifetime  and  the  number  of  maneuvers  remaining  for  each 
satellite.  The  screen,  also  displays  the  orbit  parameters  of  each 
satellite.  Hit  any  key  to  go  back  to  the  main  menu. 

00*1 

(XNSmiMTON  AGE  SCREEN 
*  Indicates  spare  status 
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Figure  4.  Constellation  Age  Screen 


Sats. 


Enter  a  "6"  from  the  Acquisition 


Base  Main  Menu  to  access  the  Display  Orbits/Maneuver  Sats  Screen,  lhe 


players  enter  the  orbit  they  are  interested  in.  lhe  screen  shows  all 
the  satellites  currently  in  the  requested  orbit.  An  example  of  the 
screen  is  shown  in  Figure  5.  lhe  screen  displays  the  name  and  tail 
nunfcer  of  all  deployed  systems  (Active  and  Spare)  in  that  orbit.  The 
computer  will  ask  the  players  if  they  want  to  place  a  satellite  in  a 
spare  status.  The  lifetime  of  a  satellite  is  extended  one  year  for 
each  year  it  is  in  a  spare  status,  lhe  computer  will  then  ask  if  the 
players  wish  to  move  a  satellite,  lhe  players  may  change  any  orbit 
parameters  they  desire  if  the  satellite  has  sufficient  fuel  on  board. 

VLBO 

CEBIT  SCREEN 
*  Indicates  Spare  Status 

MANEUVERS  INCUNATICN  ASCENDING  NODE 

2  95  120 

3  95  0 

1  95  30 

Moving  SENTRY  4 

Enter  Desired  Orbit  (VIEJO,  IEO,  etc.)  VIED 
Enter  Desired  Inclination  (0-95)  95 

Enter  Desired  Ascending  Node  -60 

(-180. .+180) 

Are  these  correct  (Y/N)? 
i  5.  Display  Orbits/Maneuver  Sats  Screen 
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Figure 


Each  orbit  modification  decrements  the  remaining  maneuvers  by  one. 
When  the  remaining  maneuvers  reach  zero,  the  satellite  cannot  perform 
any  more  maneuvers.  To  return  to  the  main  menu,  enter  NN”  when  the 
program  asks  if  a  satellite  is  to  be  moved. 


show  Migg-im  Ground  Swaths.  Enter  a  "7"  from  the  Acquisition 
Ihase  Main  Menu  to  access  the  Mission  Ground  Swath  Display.  The 
players  enter  the  orbit  they  are  interested  in.  The  display  shews  the 
ground  swath  for  all  active  satellites  in  that  mission  area.  An 
example  of  this  screen  is  listed  in  Figure  6.  The  screen  displays  the 
ground  swaths  far  all  the  active  satellites  in  the  requested  mission 
areas.  The  ground  trade  represents  one  orbit  of  the  Earth.  The 
players  have  an  option  of  adding  hypothetical  satellites  to  determine 
needed  coverage.  The  players  hit  any  key  to  go  back  to  the  main  menu. 

Quit.  Enter  a  "Q"  from  Acquisition  Ehase  Main  Menu  to  continue  to 
the  Assign  Ground  Support  Ihase. 

9.0  Assign  Ground  Support  BBSS 

In  this  phase,  the  players  assign  the  necessary  ground  support 
elements  to  the  satellites  about  to  be  launched.  The  ground  support 
consists  of  three  different  elements:  Ground  Control,  Data  Processing, 
and  User  Terminals.  An  example  of  the  Assign  Ground  Support  Screen  is 
displayed  in  Figure  7.  A  satellite  must  have  its  ground  support 
assigned  before  that  satellite  may  be  launched.  The  Assign  Ground 
Support  Screen  displays  the  satellites  which  have  completed  the 
production  phase  along  with  the  ground  units  already  assigned  to  them. 
The  bottom  half  of  the  screen  shows  the  active  ground  units  which  are 
available  to  assign  to  satellites.  The  players  enter  the  name  and  tail 
number  of  the  ground  unit  they  want  to  assign.  The  players  then  enter 
the  name  and  tail  number  of  the  desired  satellite.  The  players  may 
continue  to  assign  ground  units  until  there  are  no  more  available  or 
all  the  satellites  have  their  ground  support  elements  filled.  To 
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Add  a  Hypothetical  Satellite  <¥/N>  ? 


Figure  6.  Ground  Swath  Screen 


cxntinue  on  to  the  Deployment  Hiase,  the  players  should  enter  "NM  when 
the  program  asks  if  the  player  wants  to  assign  more  ground  units. 

The  ground  units  vary  in  the  number  of  satellites  each  can 
support.  Units  like  the  SUDP  can  provide  the  Data  Processing  for  all 
the  satellites  of  a  particular  system  (DSCS  n,  Ferret,  etc.) .  units 
like  the  MUDP  can  provide  the  Data  Processing  for  all  the  satellites  of 
a  particular  mission  (Ccnra,  NAV,  etc. ) .  The  CSOC  is  unique  in  that  it 
provides  Ground  Control  and  Data  Processing. 
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SYSTEM  CHECK  LIST 

For  Satellites  in  Production  Status 

GROUND  CCNEROL  DMA  PROCESSING  USER  TERMINAL 
Satellite  #  System  #  System  #  System  # 

DSCS  II  2  0  0  0 

DSCS  n  3  0  0  SUUT  1 

Assign  to  Satellite:  DSCS  n 
Tail  Number:  3 

ASSIGN  GROUND  SYSTEMS  TO  SATELLITES 
Ground  Control  Data  Processing  User  Terminal 
SUGCT  2  SUDP  2  SUUT  2 

SUGCT  1  SUDP  1 

Enter  name  of  ground  unit  to  assign:  SUDP 
Biter  tail  number:  2 

Figure  7.  Assign  Ground  Support  Screen 

The  players  should  reference  the  Resource  Catalog  for  a  more 
detailed  description  of  number  and  type  of  units  needed  to  complete  the 
Ground  Support  Network.  A.  {satellite  must  have  its  Ground  Support 
Network  completed  before  launch. 

10.0  Deployment  Base 

During  this  phase,  the  players  match  systems  designated  for  launch 
with  launchers  and  launch  pads.  The  target  orbit  is  set,  and  the 
systems  are  launched.  The  options  available  in  this  phase  are  listed 
in  Figure  8. 

There  are  two  types  of  launches:  single  payload  and  multiple 
payload.  A  single  payload  launch  has  only  one  satellite  loaded  onto 


Remaining  Budget  4500 
YEAR:  1987 

[1]  Create  a  Composite  Satellite 

[2]  Start  the  launch  Process 

[3]  Display  Chit  Attributes 

[4]  Constellation  Age  Screen 

[5]  Display  Orbityl&neuver  Sat s 

[6]  Shew  Mission  Ground  Swaths 
[Q]  Quit  to  Next  Rase 


Figure  8.  Deployment  Rase  Main  Menu 


the  lift  vehicle.  A  multiple  payload  launch  consists  of  a  single 
launcher  with  up  to  four  separate  payloads. 

There  are  also  two  types  of  satellites:  cccposite  and  regular.  A 
cccposite  satellite  contains  systems  which  have  been  added  on  to  the 
original  satellite.  A  regular  satellite  does  not  have  ary  add-on 
systems.  Survivability  factors  are  not  considered  add-on  systems. 

Sceafcs  3  Parasite  Satellite-  Enter  a  "1"  frun  the  Deployment 
Riase  Main  Menu  to  access  the  Ocrrpoeite  Satellite  Screen,  lhe  screen 
shews  all  the  satellites  currently  in  the  "Ready*  status  (system  has 
completed  the  production  phase  and  has  its  necessary  ground  support) . 
Hie  player  first  enters  the  "host"  satellite.  The  "host"  satellite 
must  have  a  larger  mass  than  ary  of  the  "parasites"  added  on.  The 
screen  displays  the  "host"  system  and  then  asks  for  the  "parasite" 
system.  The  "parasite"  systems  can  use  mary  of  the  sub-units  of  the 
"host";  therefore,  the  "parasite!*  systems  add  only  50%  of  their  mass  to 
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the  overall  composite  satellited  mass.  There  is  a  maximum  of  five 
''parasites"  on  a  composite  satellite.  The  players  should  watch  the 
overall  system  weight  as  they  create  composite  satellites.  They  may 
create  a  satellite  which  is  too  heavy  to  lift.  The  "host"  system  and 
all  its  "parasites"  are  considered  as  one  system  once  the  satellite  has 
been  launched.  When  a  composite  satellite  is  maneuvered  or  is  put  into 
a  "spare"  status,  all  the  systems  on  board  are  affected.  To  get  back 
to  tlr  deployment  Chase  Main  Menu,  alter  "N"  when  the  program  asks  if 
you  want  to  add  smother  system. 

Composite  Satellite  Tfteample.  The  player  wishes  to  add  a  Single 
Channel  Transponder  (SCT)  to  a  GPS-A1  Navigation  Satellite.  The  GPS 
satellite  is  considered  the  host  because  it  has  the  larger  mass.  The 
mass  of  the  GPS  satellite  is  780  kg,  arid  the  mass  of  the  SCT  is  20  kg. 
Creating  a  composite  satellite,  adds  50%  of  the  "parasite"  mass  to  the 
overall  system  weight.  Therefore,  10  kg  is  added,  resulting  in  an 
overall  system  weight  of  790  kg. 

Start  the  launch  Process.  Enter  a  "2"  from  the  Deployment  Phase 
Main  Mem  to  begin  the  launch  process.  The  launch  process  consists  of 
the  following  actions  by  the  player: 

1)  Choose  Satellite  to  be  launched 

2)  Choose  launch  site 

3)  Choose  launcher  type 

4)  Choose  launch  pad 

Examples  of  these  screens  are  listed  in  Figures  9,10,11,  and  12, 
respectively. 


SATELLITES  READY  FOR  IAUNCH 
TAIL 


MISSION 

NAME 

NUMBER 

CRBTT 

INCIIKATIGN 

MASS 

OCMM 

dscs  n 

6 

GEO 

0 

780 

WEATHER 

DK5P 

5 

LED 

90 

1650 

WEA3HE 

GOES-D 

4 

LED 

90 

1800 

SIGINT 

FERRET-3 

4 

VIED 

95 

1500 

WARNING 

SEWS 

2 

GED 

0 

1100 

Enter  the  Name  of  the  Satellite  to  be  launched:  U6P 

Tail  Number:  5, 


Figure  9.  Satellites  Read/  far  Launch  Screen 


IAUNOT  SHE  SEIEdTCN  SCREEN 

(N)  Indicates  remaining  launches  pad  can  support  this  year 


IAUNCH 

VANDENBERG 

CANAVERAL 

WINDOW 

68-122 

29  -  48 

P 

TITAN  IP  #  4  (3) 

DELTA  IP  #  2  (1) 

A 

TITAN  IP  #  5  (2) 

STS  IP  #  2  (3) 

D 

ATLAS  IP  #  1  (4) 

mriP  #  1  (7) 

S 

DELTA  IP  #  1  (1) 

ATLAS  IP  #  2  (0) 

Enter  V  far  Vandenberg  or  C  far  Canaveral:  V 


Figure  10.  Choose  Launch  Site  Screen 


EKSP  #  5  CEBIT  =  LED  MASS  =  1650 


Capacity  Satellite 


Number 

Life 

Final 

Renaining 

Launcher 

# 

Available 

Weight 

Mass 

Life  (Opacity 

Atlas 

1 

4 

8100 

1650 

6450 

Delta 

1 

2 

4800 

1650 

3150 

STS-1 

2 

1 

26200 

1650 

24700 

Choose  a 

launcher  by  Name  (Atlas, 

Titan  34D  etc.):  Atlas 

Enter  Tail  Number:  1 


Figure  11.  Choose  launcher  Screen 


CHOOSE  LAUNCH  SAD  TO  IMJNCH  ATLAS  FRCM 
(N)  Indicates  Remaining  launches  Fad  can  Support  this  Year 

EMSP  #  5  Orbit  «  ISO  Hass  *  1650 


Fad  Name  # 

ATLAS  IP  #  4  (3) 
ATLAS  IP  #  1  (4) 


Enter  Name  of  Launch  Fad:  ATLAS  IP 
Enter  Tail  Number  of  Fad:  1 


Figure  12  .  Choose  Launch  Fad  Screen 


lhe  player  enters  the  name  and  tail  number  of  the  satellite  to  be 
launched.  Once  the  players  have  designated  a  system  for  launch,  they 
may  change  the  targeted  orbital  parameters.  After  the  satellite  has 
been  launched,  it  must  use  its  own  fuel  to  maneuver.  Therefora,  it  is 
important  that  the  correct  orbital  parameters  are  set  before  the  system 
is  launched. 

After  the  orbital  parameters  are  set,  the  player  must  choose  a 
launch  site.  Two  launch  sites  are  modeled  in  the  game:  the  Western 
Test  Range  (HER)  at  Vandenberg,  and  the  Eastern  Test  Range  (E'ER)  at 
Cape  Canaveral.  Each  site  begins  the  game  with  the  following  pads: 
one  Atlas,  two  Titan,  one  Delta,  and  one  STS.  Additional  pads  may  be 
acquired  as  the  game  progresses.  Each  pad  can  support  only  a  limited 
number  of  launches  each  year,  so  the  player  must  take  care  when 
assigning  launch  sites.  The  number  of  launches  per  year  each  pad  can 
support  is  listed  in  Table  IX. 


NAME 

Delta 

Atlas 

Titan 

SIS 

ILV 

MLV 

HLV 

SLV 


Table  IX 

launch  Pad  Fire  Rates 

LAUNCH  RATE/YEAR 
3 
2 
3 
5 
12 
9 
8 
5 
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Each  launch  site  has  an  orbit  inclination  window.  The 
inclination  window  represents  the  range  of  inclinations  which  payloads 
nay  be  injected  into  via  a  direct  ascent.  A  launch  within  the  launch 
window  is  more  fuel  efficient  than  a  launch  outside  the  window.  The 
window  for  launches  from  Vandenberg  is  68  -  122  degrees  of  launch 
inclination.  The  window  for  launches  from  Cape  Canaveral  is  29  -  48 
degrees  of  launch  inclination.  A  launch  designed  to  place  a  payload 
within  the  inclination  window  uses  the  standard  orbit-wei^it  correction 
factor  (function  of  inclination  and  booster  type) .  Any  launch  designed 
to  place  a  payload  in  an  orbital  inclination  outside  this  window  is 
penalized,  and  its  orbit  correction  factor  is  assigned  as  one-half. 

This  represents  the  additional  fuel  required  to  put  the  satellite  into 
the  proper  inclination c  The  orbit  correction  factor  is  multiplied  by 
the  launcher  lift  capacity  to  get  the  total  to-orbit-lift-capacity  for 
the  launch.  Because  of  the  weight  penalty  imposed  on  an  out-of-window 
launch,  the  player  should  carefully  choose  the  launch  site.  See  Figure 
10  for  an  example  Choose  Launch  Site  Screen. 

Onoe  the  player  has  designated  a  launch  site,  the  oomputer  will 
display  a  list  of  launchers  which  have  the  lift  capability  to  place  the 
payload  into  the  desired  orbit.  This  list  includes  the  launcher  name 
and  number  available,  the  total  lift  capacity,  the  final  payload  mass, 
and  the  remaining  lift  capacity  of  the  launcher.  The  remaining  lift 
capacity  is  used  if  the  player  is  using  a  multiple  payload  launch.  The 
computer  tells  the  players  if  there  are  no  active  launchers  which  can 
lift  the  satellite.  See  Figure  11  for  an  example  Choose  Launcher 


Screen 


After  choosing  a  launcher,  the  player  must  select  a  launch  pad  to 
launch  the  lift  vehicle  from.  The  ocnputer  lists  all  the  available 
launch  pads  at  the  launch  site  which  are  compatible  with  the  launcher. 
It  also  displays  the  number  of  remaining  launches  each  pad  can  support 
that  year.  See  Figure  12  for  an  example  Choose  launch  Pad  Screen. 

At  this  point  the  player  has  the  option  of  creating  a  Multiple 
launch.  If  there  is  sufficient  lift  capacity  remaining,  the  player  may 
place  additional  payloads  on  board  the  launcher.  Multiple  Payloads 
take  advantage  of  carmen  sub-systems  required  for  launching  all 
satellites.  Therefore,  these  extra  payloads  add  only  75%  of  their  mass 
to  the  overall  mass  to  be  lifted.  The  Multiple  Launch  Screen  shows  the 
remaining  satellites  ready  for  launch  and  asks  for  the  additional 
payloads.  The  ocnputer  will  not  allow  the  launcher  to  be  overloaded. 
There  can  be  no  more  than  four  separate  payloads,  and  the  payloads  must 
be  launched  into  the  same  orbit  (VLEO,  MED,  etc.) .  See  Figure  13  for 
an  example  Multiple  Payload  launch  Screen. 

Once  the  payloads  have  been  finalized,  the  computer  asks  the  NASA 
player  if  the  launch  violates  the  civilian  constraint.  This 
restriction  states  at  least  80%  of  the  civilian  launch  requirements 
listed  in  the  scenario  must  be  met  during  the  turn.  If  NASA 
says  the  launch  would  violate  these  constraints,  the  launch  is 
scrubbed  and  the  launch  process  begins  over  again.  See  Figure  14  for 
an  exanple  NASA  Check  Screen. 

If  NASA  says  the  launch  is  okay,  then  the  computer  checks  the 
launch  reliability  factor  of  the  launcher  and  calls  the  random  number 


MUIinSEE  PAYLOAD  DESIGNATED  FOR  ATLAS 
Multiple  Payloads  add  75%  of  their  mass  to  overall  system 

Target  Remaining  Current 

Orbit  Lift  Weight  Payload  # 

LEO  6450  EKSP  5 

REMAINING  LAUNCHABLE  SATELLITES 


MISSION 

NAME 

# 

MASS 

CRBTT 

INC 

ASCENDING  NODE 

OCfff 

DSGS  n 

6 

730 

GEO 

0 

45 

WEATHER 

GOES-D 

4 

1800 

USD 

90 

120 

SIGINT 

FERRET-3 

4 

1500 

VLBO 

95 

0 

WARNING 

SEWS 

2 

1100 

GEO 

0 

-45 

Enter  next  payload:  GOES-D 
Tail  number:  4 


Figure  13.  Multiple  Payload  Launch  Screen 

NASA,  Please  Confirm  Launch  of 
EKSP  3 

Add-on  Packages  Additional  Payloads 

None  GOES-D  4 

Y/N 

Figure  14.  NASA  Check  Screen 

generator  returns  a  number  between  0  and  1.  If  this  number  is  greater 
than  the  reliability  factor  of  the  launcher,  then  the  launch  fails  and 
the  launcher  and  all  of  its  payload  are  considered  destroyed.  If  the 
launcher  was  a  reusable  type,  then  considerable  damage  could  be  done  to 
the  overall  lift  capability.  If  the  launch  fails  the  launch  pad  is 


damaged.  The  nunber  of  remaining  launches  the  pad  can  support  that 
year  is  halved,  and  a  repair  fee  of  $10  Million  is  assessed. 

If  it  is  a  successful  launch,  then  the  launcher  and  payload  are 
considered  to  have  achieved  orbit.  At  this  point  the  launcher  must 
successfully  deploy  each  of  its  payloads.  There  is  a  uniform  97% 
chance  per  payload  of  a  successful  deployment  (20:40).  Again,  the 
computer  calls  the  random  nunber  generator.  If  the  nunber  is  greater 
than  .97,  then  the  deployment  has  failed  and  the  payload  is  considered 
destroyed.  If  the  nunber  is  .97  or  less,  then  the  deployment  was 
successful  and  the  payload  is  considered  active.  The  payloads  of  a 
multiple  payload  launch  mist  be  deployed  separately.  If  one  payload  is 
not  successfully  deployed,  it  does  not  affect  the  other  systems. 

Once  the  launch  process  has  been  completed,  the  computer  decreases 
the  active  launchers  of  that  type  by  one.  If  the  launcher  was  reusable 
or  recyclable,  then  its  total  missions  is  reduced  by  one. 

Deployment  Ihase  Example-  The  player  wishes  to  launch  a  Comstar 
Communication  satellite.  The  desired  orbit  is  GEO  at  an  inclination  of 
zero  degrees.  The  player  chooses  to  launch  the  satellite  from 
Vandenberg.  The  Comstar  satellite  is  to  launch  by  itself  without  any 
add-on  systems,  so  its  mass  is  1410  kg.  The  computer  determines  that 
the  Titan  34D  is  the  only  active  launcher  which  can  lift  the  satellite. 
The  lift  capacity  of  the  Titan  34D  to  GEO  is  4500  kg.  However,  the 
inclination  is  outside  the  Vandenberg  launch  window;  therefore,  the 
orbit  correction  factor  is  one-half.  Multiplying  this  factor  by  the 
lift  capacity  (.5  *  4500)  gives  a  lift  capacity  of  2250  kg.  Therefore, 
the  Titan  can  launch  the  system.  Loading  the  Ocmstar  leaves  an  excess 
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lift  capacity  of  840  log  (2250  -  1410) .  The  player  also  wants  to  launch 
■i  DECS  II  Satellite;  therefore,  he  decides  to  make  a  multiple  launch. 
The  original  mass  of  the  D6CS  H  Satellite  (620  kg)  is  multiplied  by 
.75  since  it  is  a  multiple  launch.  This  mass  (465  kg)  is  added  to  the 
overall  launch  weight  resulting  in  a  final  launch  weight  of  1875  kg 
(1410  +  465) . 

The  remaining  procedures  available  in  the  Deployment  Rase  have 
been  explained  in  the  Acquisition  Rase. 

11.0  Scoring  BBSS  (optional) 

After  every  deployment  phase,  the  game  controller  will  assign  a 
point  far  each  mission  requirement  which  has  been  met  during  the  turn. 
The  mission  requirements  are  defined  in  the  Requirements  catalog. 

These  points  are  used  to  valuate  the  effectiveness  of  the  force 
structure  designed  by  the  players.  The  points  may  be  used  for 
comparison  purposes  when  evaluating  results  from  different  teams. 

12.0  gape  cxitoiigr 

The  game  controller  has  access  to  seme  extra  routines.  These 
procedures  are  accessed  through  a  secret  password.  They  may  be  used  to 
create  a  new  database  or  fix  any  potential  problems  with  the  database. 
These  procedures  and  a  description  are  listed  in  Table  X.  The 
controller  may  access  these  procedures  during  the  Acquisition  and 
Deployment  Riase  by  striking  the  shift  key  and  the  alternate  key 
simultaneously.  The  password  may  also  be  used  at  the  end  of  every  turn 
when  the  program  asks  if  the  game  is  to  continue. 
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Table  X 


System  Ocnmands 


PROCEDURE 

DESCRIHTCN 

Add_Un.it 

Used  to  add  units  to  the  database 

Load_List 

Used  to  load  a  database 

Viewjdst 

Used  to  view  the  entire  database 
entry  by  entry 

DeleteJUhit 

Used  to  delete  a  unit  from  the 

Change_Status 

Used  to  change  the  status  of  a 
unit 

AddjOopy 

Used  to  add  duplicates  of  a  unit 
(duplicate  has  different  tail 
number 

Add_Expendable 

Used  to  add  expendable  launchers  ! 

onto  the  launcher  ACB  (adds  them 
to  the  Research  stage) 

Modify_Budget 

Used  to  modify  the  Budget 

Follow  these  steps  when  creating  a  new  database. 

(1)  Use  AddJJhit  to  create  one  copy  of  every  unit  in  the 
database* 

(2)  Use  Add_Ccpy  to  create  as  many  of  each  unit  as  desired. 

(3)  Use  ChangejStatus  to  set  the  desired  status  for  each  unit. 
Using  AddjCopy  will  greatly  reduce  the  amount  of  typing  necessary  to 
create  a  new  database. 

lUfcgEfaog 

The  use  of  the  SATRAK  program  is  optional.  It  is  used  to  display 
a  three-dimensional  picture  of  mission  constellations.  It  can 
simultaneously  display  up  to  ten  different  satellite  orbit  graces.  The 
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Game  Controller  must  input  the  necessary  commands  into  the  SAIRAK 
program  to  generate  the  display. 

This  User's  Guide  does  not  include  instructions  on  running  SAIRAK. 
Refer  to  the  SAXRAK  User  Manual  if  there  are  questions. 

13.0  Future  Programmers 

The  database  was  set  up  as  a  forward-linked  list.  The  database 
was  designed  with  variant  records  because  each  mission  area  has  many 
unique  fields.  This  conserves  memory  space. 

lhe  Search  procedure  was  called  every  time  a  field  had  to  be 
changed.  The  procedure  used  the  globed,  variable  "Where"  as  a  pointer 
to  the  desired  record.  For  example,  the  status  field  of  AFSATOCM,  tail 
number  2,  needs  to  be  changed  to  "Development".  The  program  would  call 
Search  with  the  name  and  tail  number  as  part  of  the  parameter  list. 

The  program  would  then  assign  the  new  status  as  follows: 

Where"  .Status  :=  'Development' 

If  another  mission  type  is  to  be  added,  the  following  four  changes 
must  be  made. 

1)  Add  the  mission  type  to  the  global  variable 
Task  in  the  main  program 

2)  Add  the  required  fields  to  the  data  base  structure 
in  the  main  program 

3)  Add  the  desired  fields  to  the  AddUnit  procedure 
in  the  library  routine 

4)  Add  the  desired  fields  to  the  ShowJJnit  procedure  in  the 
library  routine 


The  procedures  are  not  in  a  logical  order  because  of  the  memory 
limitation  in  Turbo  Pascal,  Version  3.  This  ordering  allowed  a  more 
efficient  vise  of  the  Overlay  ccmaand. 


This  appendix  contains  the  source  code  for  ADAM.  It  consists  of 
approximately  5,000  lines  of  Turbo  Pascal  code.  Due  to  the  memory 
limitation  of  Turbo  Pascal,  Version  3,  modifications  to  this  program 
should  be  done  in  Version  4. 


PROGRAM  ADAM  ; 


(Code:  is  current  as  of  5  Dec  87} 

TYPE 

WorldArray  =  array  [0.. 16387 3  of  byte  ; 

(different  missions  modeled  in  game) 

Task  =  (COMM,  WEATHER,  NAV,  IMINT,  SIGINT,  WARNING, 
OFFENSE,  DEFENSE,  GROUND,  LAUNCHER,  PAD)  ; 

stringlO  =  string  [10]  ; 
string5  =  string  [53  ; 
string80  =  string  [80]  ; 
stringll  =  string,  [  1 1 3;  ; 

Window  =  SET  OF  0.. 180  ; 

UnitPtr  =  “Unit  ; 

Unit  =  Record 

Mission  :  stringlO  ; 

Name  :  stringlO  ; 

TailNuinber  :  integer  ; 

Mass  real  ; 

LifeTime  :  integer  ; 

Deployed  :  integer  ; 

RDCost  :  integer  ; 

ACQCost  :  integer  ; 

OMCost  :  integer  ; 

Status  :  stringll  ; 

ControlName  :  string5  ; 

ControlNumber  :  integer  ; 

ProcessorName  :  strings  ; 

ProcessorNumber  :  integer  ; 

UserName  :  String5  ; 

UserNumber  :  integer  ; 

Orbit  :  strings  ; 

Inclination  :  integer  ; 

AscendingNode  :  integer  ; 

AddOnNamel  :  stringlO  ; 

AddOnNuml  :  integer  ; 

AddOnName2  :  stringlO  ; 

Add0nNum2  ;  integer  ; 

Add0nName3  :  stringlO  ; 

AddOnNum3  :  integer  ; 

Add0nNams4  :  stringlO  ; 

Add0nNum4  integer  ; 

Add0nName5  :  StringlO  ; 

AddOnNum5  :  integer  ; 

AntiJamDataLink  :  string,  [Tl 
LowAntiJamComLink  :  string  [1]=  ( 
MedAntiJamConLink  :  string  H3  ; 
HighAntiJamComLink  :  string  [1]  ; 
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Autonomy 15  :  string  [1]  ; 

AutonomylBO  :  string  ![1]  ; 

Manuvers  ;  real  ; 

Update  :  integer  ; 

TechLevel  :  integer  ; 

Next  :  UnitPtr  ; 

CASE  Purpose  :  Task  OF 

COMM  :  (Channels  :  real)  ; 

WEATHER  :  (Downlink  :  string  [5]  ; 

DayVideo  :  string  [13  ; 

NightVideo  :  string  Cl]  ; 

Daylmage  :  string  [13  ; 

Nightlmage  :  string  Cl]  ; 

Temp  :  string  [13  ; 

Solar  :  string  [13  )  ; 

NAV  :  (Accuracy  :  integer  ; 

Position  :  real  ; 

Redundancy  :  integer  )  ; 

IMINT  :  (DLirik  :  string  [53  ; 

DVideo  :  string  Cl]  ; 

’  NVideo  :  string  Cl 3  ; 

DImage  :  string  [13  ; 

NImage  :  string  Cl 3  )  ; 

SIGINT  :  (DataLink  :  string  M3.  ; 

Signal  :  string  [53  )  ; 

WARNING  :  (Aircraft  :  string  C53  ; 

ICBM  ;  string  Cl]  ; 

SLBM  :  string  [13  ; 

Target  :  string  [103  ; 

Count  :  string  [53  )=  ; 

OFFENSE  :  (LowOrbit  :  string  i'l]  ; 

MedOrbit  string  [13  ; 

HighOrbit  :  string' [13  ; 
GroundTarget  :  string  [13  ; 

Planes  :  string  [5] 

Ships  :  string  [103  ; 

TimeUrgent  :  string  [13  ) 

DEFENSE  :  (Boost'  string  [13  ; 

MidCourse  :  string  [ l j  ; 

Reentry  :  string  [13  ; 

AC  :  string  [53  ; 

CruiseMissile  :  string  [13  } 

GROUND  (Kind  :  stringlO  ; 

SupportName  r.  stringlO  ; 


SupportNumber  :  integer  )  ; 


LAUNCHER 


PAD 


(NumActive.  :  integer  ; 
ProdActive  :  integer  ; 
NumProd  :  integer  ; 
DevProd  :  integer  ; 
Hold  :  integer  ; 

NumDev  :  integer  ; 
ReuseField  :  stringlO  ; 
Sorties  :  integer  ; 
RemUses  ;  integer  ; 
Reliability  :  real  ; 

VLEO  :  real,  ; 

LEO  :  real  ; 

-MOL  :  real  ; 

MEO  :  real  ; 

GEO  real  )  ; 

(LaunchRate  :  integer  ; 
NumRemaining  :  integer  ; 
Location  :  stringlO) 


END  ; 

UnitFile  =  FILE  OF  Unit  ; 


CONST 

FiveBlanks  = 
TenBlanks  = 
FifteenBlanks  = 


{change  this  array  if  different  budget  figures  are  to  be  used) 
XBUDGET  :  array  [1987.. 1996 3  OF  integer  = 

(4600,  4500,  5000,  6000x,  7000-,  8000,  7500,  8500, 

10000,  10000)  ; 


VAR 


Ch 
Root 
Head 
Found 
Year 
SearchName 


Char  ; 
UnitPtr 
UnitPtr 
boolean 
integer 
StringlO 


(points  to  head  of  list) 


BUDGET  :  integer  ; 
SearchNumber  :  integer 
Buyable  :  boolean  ; 
Copy  :  boolean  ; 
ThisMission  :  stringlO 
Where  :  UnitPtr  ; 
LaunchSite  :  StringlO 
Quit  :  boolean'  ; 
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km: 


E 


NASAOK  :  boolean  ; 

LiftVehicle  :  string 10  ; 

LiftVehicleNum  :  integer  ; 

LiftWeight  :  real  ; 

ReraWeight  :  real  ; 

PayLoadl,  PayLoad2,  PayLoad3,  PayLoad4  :  stringlO  ; 
Numl ,  Num2 ,  Num3 ,  Num4  :  integer  ; 

MultipleLaurich  :  boolean  ; 

InText  :  Text  ; 

World  :  WorldArray  ; 

LaunchPad  :  stringlO 
LaunchPadNum  :  integer  ; 

Help  :  boolean  ; 

StringNumber  :  stringlO  ; 

{#1  graph. p) 

(*I  Library3.Pas) 

(*I  .Library .Pas) 

(*I  Library2.pas) 


(called  from  multiple.launch  routine.,  displays  all  ‘ready*  sats) 
PROCEDURE  Di splay _Remaining_Sats  (Var  Root  :  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

CountLines  :  Integer  ; 

BEGIN 

Window  (1,11,80,25)  ; 

TextBackground  (0):  ; 

Clrscr  ; 

Center .Line  (2,  ’REMAINING  LAUNCHABLE  SATELLITES’)  ; 

GotoXY  (4,4)  ;  Write  ('Mission')  ; 

-Gc.toxy  (15,4)  Write  ('  Name  #’).  ; 

Gotoky.  (35*4)*.;  Write  (’Mass')  Gotoxy  (45,4)-  ;  Write  ('Orbit')  ; 
Gotoxy  (55,4)  ;  Write  (‘‘Inc’)  ; 

Gotoxy  (65,4)  ;  Write  ('Ascending  Node')  ; 

Gotoxy  (1*6)  ; 

Current  :=  Root  ; 

CountLines  :=  0  ; 

While  ;( Current  <>  Nil)  AND  (CountLines  <  8)  DO 
BEGIN 

IF  (Current* .Mission  <>  ?PAD.’) 

AND  (Current*. Mission  <>  ’LAUNCHER’)  AND 
(Current* .Mission;  <>  ’GROUND’)  AND 
(Current ‘.Status  =  ’READY')  THEN; 

BEGIN 

Writeln  (Current* .Mission: 10,  Current* .Name: 13, 

Current* .TailNumber:3,  ’  ’,  Current*.Mass:6:0, 

Current*. OrbitUO,  Current*  .Inclination: 9, 
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Current" .AscendingNode: 15)  ; 


CountLines  :=  CountLines  +  1  ; 

END  ; 

Current  :=  Current' .Next  ; 

END  ;  {while} 

IF  CountLines  >=8  THEN 
BEGIN 

ClearLines  (14,14)  ; 

Center_Line  (14,  ’hit  *C‘  to  continue  listing')  ; 

IF  Continue  THEN  Display_Remaining_Sats  (Current)  ; 
END  ; 

Window  (1,1,80,25)  ; 

END  ; 


{called  from  launch  routine  if  player  wants  to  make  a  multiple  launch) 
{Displays  current  payloads  on  launch  vehicle) 

OVERLAY  PROCEDURE  Multiple_Launch  (Root  :  UnitPtr  ;  WorkUnit  :  Unit)  ; 
VAR 

Keep  :  UnitPtr  ; 

Deviation  :  window  ; 

ThisPayload  :  real  ; 

OKLoad  :  boolean  ; 

Low,  High  :  integer  ; 

Loads  :  integer  ; 

TooManyLoads  :  boolean  ; 

HoIdMass  :  real  ; 

Stop  :  boolean  ; 

BEGIN 

Loads  :=  1  ; 

REPEAT 

Stop  :=  False  ; 

MultipleLaunch  :=  False  ; 

TooManyLoads  :=  False  ; 

OKLoad  :=  False  ; 

TextBackground  (1)  ; 

ClrScr  ;  TextColor  (White)  ; 

GotoXY  (20,1)  ;  Write  (’MULTIPLE  PAYLOAD  DESIGNATED  FOR  ’, 

LiftVehicle)  ; 

TextColor  (Yellow)  ; 

Center_Line  (2, 

’Multiple  Payloads  add  75  %  of  mass  to  overall  system’)  ; 
TextColor  (White)  ; 

GotoXY  (20,4)  ;  Write  (’Target’)  ; 

GotoXY  (40,4)  ;  Write  (’Remaining’)  ; 
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GotoXY  (60,4)  ;  Write 
GotoXY  (20,5)  ;  Write 
GotoXY  (40,5)  ;  Write 
GotoXY  (60,5)  ;  Write 
TextColor  (Yellow)  ; 
GotoXY  (20,7)  ;  Write 
GotoXY  (40,7)  ;  Write 


(’Current')  ; 
('Orbit')  ; 

('Lift  Weight’)  ; 
(’Payload  #’)  ; 

(WorkUnit. Orbit)  ; 
(RemWeight:6:0)  ; 


IF  Loads  =  1  THEN  (only  done  on  first  pass) 
*  BEGIN 

Keep  :=  Where  ; 

HoldMass  :=  WorkUnit. Mass  ; 

PayLoadl  :=  WorkUnit. Name  ; 

Numl  :=  WorkUnit. Tail Number  ; 

END  ; 


GotoXY  (57,7)  ;  Write  (PayLoadl : 10 ,  Numl:4)  ; 

IF  Loads  >  1  THEN 
BEGIN 

GotoXY  (57,8)  ; 

Write  (PayLoad2: 10 ,  Num2:4>  ; 

END  ; 

IF  loads  >  2  THEN 
BEGIN 

GotoXY  (57,9)  ; 

Write  (PayLoad3: 10,  Num3:4)  ; 

END  ; 

IF  Loads  >  3  THEN 
BEGIN 

GotoXY  (57,10)  ; 

Write  (PayLoad4: 10,  Num4:4)  ; 

END  ; 

IF  Loads  >  4  THEN 
BEGIN 

Center_Line  (23, 

'Can  only  have  4  systems  on  a  multiple  launch')  ; 
Center_Line  (24,  'Please  hit  <CR>  to  continue')  ;  read  ; 
TooManyLoads  :=  True  ; 

END  ; 

IF  NOT  TooManyLoads  THEN 
BEGIN 

Display_ReraainingJ3ats  (Root)  ; 

ClearLines  (23,25?  ; 

Center_Line  (23,  ’enter  next  payload  ')  ; 

Center_Line  (24,  ’  tail  number  ’)  ; 

GotoXY  (55,23)  ;  Read  (SearchName)  ; 

SearchNumber  Getlnt  (StringNumber ,  55,  24)  ; 

Search  (Root,  SearchName,  SearchNumber,  'NO')  ; 


I 

< 

i 

I 
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IF  Found  THEN 
BEGIN 

IF  (Where*. Orbit  =  Keep*. Orbit)  THEN 
BEGIN 

ThisPayload  :=  Where*. Mass  ; 

IF  RemWeight  >=  ThisPayload  *  0.75  THEN  OKLoad  :=  True 
ELSE 
BEGIN 

ClearLines  (23,25)  ; 

GotoXY  (30,23)  ; 

Write  (Where* .Name,  ’  is  too  heavy’)  ; 
textcolor  (White)  ; 

Center_Line  (25,  'Please  hit  <CR>  to  continue’)  ;  read; 
Textcolor  (yellow)  ; 

END  ; 

IF  OKLoad  THEN 
BEGIN 

MultipleLaunch  :  =  True  ; 

RemWeight  :=  RemWeight  -  ThisPayload  *  0.75  ; 

Loads  :=  Loads  +  1  ; 

IF  Loads  =  2  THEN 
BEGIN 

PayLoad2  :=  Where ‘.Name  ; 

Num2  :=  Where* .TailNumber  ; 

Where ‘.Status  :=  ’PENDING’  ; 

END 

IF  Loads  =  3  THEN 
BEGIN 

PayLoad3  :=  Where ‘.Name  ; 

Num3  :=  Where* .TailNumber  ; 

Where*. Status  :*  ’PENDING’  ; 

END  ; 

IF  Loads  =  4  THEN 
Begin 

PayLoad4  :=  Where ‘.Name  ; 

Num4  :=  Where* .TailNumber  ; 

Where*. Status  ;=  ’PENDING’  ; 

END  ; 

END;  (OKLoad) 

END  (orbit) 

ELSE 

BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (24, 

’Multiple  launch  orbit  altitudes  must  be  identical’)  ; 
Textcolor  (white)  ; 

Center_Line  (25,  ’Please  hit  <CR>  to  continue’.)  ;  Read  ; 
textColor  (Yellow)  ; 

END  ;  (orbit  check) 


END  ;  (Found) 

END  ;  (TooManyLoads) 

ClearLines  (23,25)  ;  GotoXY  (15,24)  ; 

(*¥ite  (’Would  you  like  to  place  another  load  on  ’, 

Lif tVehicle ,  ’  (Y/N)  ’)  ; 

Head  (kbd.Ch)  ; 

IF  (Ch  =  ’N’)  OR  (Ch  =  *n’)  OR  (TooManyLoads)  THEN  Stop  :=  True  ; 
UNTIL  Stop  ; 

END  ; 


PROCEDURE  DUMMY2  ;  (put  in  because  multiple  launch  and  choose  launcher) 
BEGIN  (  cant  be  in  same  overlay) 

END  ; 


(player  chooses  which  launcher  they  want  to  use) 

(player  also  chooses  which  launch  pad  to  use) 

OVERLAY  PROCEDURE  Choose.Launcher  (Root  :  UnitPtr  ; 

VAR  WorkUnit  :  Unit)  ; 

VAR 

Stop  :  boolean  ; 

Keep  :  UnitPtr  ; 

Current  :  UnitPtr  ; 

Affordable  :  boolean  ; 

Check  :  string  [3]  ; 

HavePad  :  boolean  ; 


BEGIN 

HavePad  :=  False  ; 

Affordable  :=  True  ; 

Current  :=  Root  ; 

Textbackground  (1)  ; 

ClrScr  ; 

Stop  :=  False  ; 

PayLoadl  :=  ”  ;  PayLoad2  ;  PayLoad3  :=  ”  ;  PayLoad4  :=  ” 

WITH  WorkUnit  DO 
BEGIN 


TextColor  (White)  ; 

GotoXY  (25,2)  ;  Write  (’CHOOSE  LAUNCHER  FROM  ’,  LaunchSite)  ; 
Textcolor  (Yellow)  ; 

GotoXY  (19,4)  ;  Write  (NamerlO,  ’  #’,  TailNumber:3 , 

‘  Orbit  -’ ,  0rbit:5, 

*  Mass  =  ’ ,  Mass:6:0)  ; 


TextCol'or  (White)  ; 

Textbackground  (1)  ; 

GotoXY  (2! ,6)  ;  Write  (’Number’)  ; 

GotoXY  (34,6)  ;  Write  (’Capacity’)  ; 
GotoXY  (51,6)  ;  Write  (’Satellite’)  ; 
GotoXY  (67,6)  ;  Write  ('Remaining’)  ; 
GotoXY  (1,7)  ;  Write  (’  Launcher  #’)  ; 


132 


GotoXY  (17,7)  ;  Write  (’  Available’)  ; 

GotoXY  (34,7)  ;  Write  {’Lift  Weight’)  ; 

GotoXY  (51,7)  ;  Write  (’Final  mass’)  ; 

GotoXY  (67,7)  ;  Write  (’Lift  Capacity’)  ; 

TextColor  (Yellow)  ; 

Display_Launchers  (Root,  Where*)  ; 

ClearLines  (23,25)  ; 

CenterJjine  (24,  'Enter  *Q‘  to  to  stop  the  launch  process’)  ; 

Read  (kbd.Ch)  ; 

IF  (Ch  =  ,Q’>  OR  (Ch  =  ’q’)  THEN 
BEGIN 

Stop  :=  True  ; 

NASAOX  :=  False  ; 

Where “.Status  :=  ’READY’  ; 

PayLoadl  :=  ”  ;  PayLoad2  :=  ”  ;  PayLoad3  ; 

PayLoad4  : =  ’ ’  ; 

AddOnNamel  :=  "  ;  Add0nName2  ”  ;  Add0nName3  :=  ”  ; 
Add0nName4  :=  ”  ;  Add0nName5  :=  ”  ; 

END  ; 

IF  NOT  Stop  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (23, 

'Choose  a  launcher  by  name  (Atlas,  Titan  34D  etc)  ’) 
Center  Line  (24,  '  Enter  Tail  Number  ’) 

GotoXY"* (65, 23)  ;  Read  (LiftVehicle)  ; 

LiftVehicleNum  :=  Getlnt  (StringNumber ,  65,  24)  ; 

While  (Current  <>  Nil)  AND  (,( Current* .Name  <>  LiftVehicle)  OR 
(Current* .TailNumber  <>  LiftVehicleNum))  DO 
Current  :=  Current* .Next  ; 

IF  (Current  <>  Nil)  THEN 
BEGIN 

IF  ( (Current* .ReuseField  <>  ”) 

AND  (Curreni* .ReuseField  <>  ’NO’)  AND 
(Current*. Status  =  ’ACTIVE’)  OR 
(Current* .ReuseField  =  ”)  OR 
(Current* .ReuseField:  =  ’NO’)  AND 
(Current* .NumActive  >  0))  THEN 
BEGIN 

IF  (Current*. ReuseField  =  ’REUSEABLE’)  OR 
(Current*. ReuseField  =  ’RECYLABLEV)  OR 
(Current* .ReuseField  =  ’R* )  OR 
(Current*. ReuseField  =  ’C’)  THEN 
BEGIN 

IF  (BUDGET  -  Current ‘.OMCost)  <  0  THEN 
BEGIN 

ClearLines  (23,25)  ; 

CenterJLine  (23,  'Sorry,  you  cant  afford  to  launch  !’)  ; 
Center  Line  (25,  'Hit  any  key  to  continue’)  ; 

Read  (kbd.Ch)  ;  _ 


Status  :=  ’READY'  ; 
Affordable  :=  False  ; 
END  ;  (exceeds  budget) 


END  ;  (resuable) 


(a****###**#****##*****###*#*#**###**####***#*###**** ##*#*} 
(Pick  launch  pad) 


IF  Affordable  THEN  (player  designates  pad) 

BEGIN 

ClearLines  (1,25)  ;  GotoXY  (24,2)  ;  TextColor  (White)  ; 
WRite  (’CHOOSE  PAD  TO  LAUNCH  ’,  LiftVehicle,  ’  FROM’)  ; 
GotoXY  (11,4)  ;  TextColor  (Yellow)  ; 

Write  ( ’ (N)  Indicates  Remaining  Launches  Pad’)  ; 

WRite  (’  can  Support  This  Year’)  ; 

Textcolor  (White)  ;  GotoXY  (19,6)  ; 

Write  (Name: 10,  ’  #’ ,  TailNumber: 3 , 

’  Orbit  =  0rbit:5,  ’  Mass  =  ’,  Mass: 6:0)  ; 


Current  :=  Root  ; 

Center  Line  (9,  ’Pad  Name  #’)  ; 

GotoXY" (1,11)  ; 

Check  :=  LiftVehicle  ;  (get  first  three  letters) 

(to  check  if  launcher  is  same  type) 
(as  pad) 

While  Current  <>  Nil  DO 
BEGIN 

IF  (Current* .Mission  =  ’PAD’)  AND 
(Current*. Status  =  ’ACTIVE’)  AND 
(Current* .Location  *  LaunchSite)  AND 
(Pos  (Check,  Current* .Name  )  <>  0)  AND 
(Current* .NumRemaining  >  0)  THEN 
Writeln  (Current* .Name: 41 ,  Current* .TailNumber :3, 

’  (*,  Current*.NumRemaining:2,  ’)’)  ; 

Current  :=  Current* .Next  ; 

END  ; 


Center_Line  (24  , ’Enter  Name  of  Launch  Pad  ’) 
Center_Line  (25,  'Enter  Tail  Number  of  Pad  ’) 
GotoXY  (55,24)  ;  Read  (LaunchPad)  ; 
LaunchPadNum  :=  Getlnt  (StringNumber ,  55,  25) 
Current  :  =  Root  ;  (check  if  its  in  database) 
While  (Current  <>  Nil)  AND  ( (Current* .Name  <> 
(Current* .TailNumber  <>  LaunchPadNum)) 
Current  :=  Current* .Next  ; 


LaunchPad)  OR 
DO 


IF  Current  =  Nil  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24,  ’Pad  is  not  in  the  database’)  ; 
Center_Line  (25,  ’Hit  any  key  to  continue’)  ; 
Read  (kbd.Ch)  ; 
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Where* .Status  :=  'READY'  ; 

END 

ELSE  {found} 

BEGIN  (check  LP  compatibility} 

IF  (Current* .NumRemaining  >  0)  AND 
(Pos  (Check,  LaunchPad)  <>  0) 

THEN  HavePad  :=  True  ; 

END  ; 

IF  (NOT  HavePad)  AND  (Current  <>  Nil)  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24, 

'Sorry  Pad  is  out  of  launches  or  not  compatible’)  ; 

Center  Line  (25,  'Hit  any  key/  to  continue')  ;  Read  (kbd.Ch)  ; 
Where *7status  :=  'READY'  ; 

END  ; 

IF  HavePad  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Keep  : =  Where  ; 

CenterJLine  (24,  'Will  this  be  a  multiple  payload  launch  (Y/N)  ?  ’) 
IF  Yes  THEN  Multiple_Launch  (Root,  Where*)  ; 

NASA.Check  (Keep*)  ; 

END  ;  {have  pad} 

END  ;  {affordable} 

END  {Reusable  not  active  or  expendable  numactive  =  0} 

ELSE  Where*. Status  :=  ’READY’  ; 

END  {not  nil.  check  if  Launcher  in  Database) 

ELSE  Where ‘.Status  :=  ’READY’  ; 

END  ;  {not  stop} 

END  ;  {with} 

END  ; 


{shows  status  of  pads  at  both  sites  and  players  inputs  which  site) 
{to  launch  from) 

OVERLAY  PROCEDURE  Choose.Launch.Site  (Root  :  UnitPtr)  ; 

VAr 

Current  :  UnitPtr  ; 

CapeLine,  VandLine  :  integer  ; 

BEGIN 
ClrScr  ; 

Center.Line  (1,  ’LAUNCH  SITE  SELECTION  SCREEN’)  ; 


GotoXY  (11,2)  ; 

Write  (’(N)  Indicates  remaining  launches  pad  can  support  this  year')  ; 
TextColor  (White)  ; 

GotoXY  (25,4)  ;  Write  ( ' VANDENBERG ’ )  ; 

GotoXY  (56,4)  ;  Write  ('CANAVERAL')  ; 

TextColor  (Yellow)  ; 

GotoXY  (10,5)  ;  WRite  ('LAUNCH')  ; 

GotoXY  (10,6)  ;  Write  {'WINDOW')  ;  GotoXY  (26,6)  ;  Write  (’68  -  122'); 
GotoXY  (57,6)  ;  Write  ('29-48')  ; 

TextColor  (White)  ; 

GotoXY  (12,9)  ;  Write  CP’)  ;  GotoXY  (12,11)  ;  WRite  ('A')  ; 

GotoXY  (12,13)  ;  WRite  CD’)  ;  GotoXY  (12,15)  ;  Write  (’S’)  ; 

TextColor  (Yellow)  ; 

GotoXY  (1,9)  ; 

VandLine  :  =  9  ;  CapeLine  ;  =  9 
Current  ;=  Root  ; 

While  (Current  <>  Nil)  AND  (Current* .Mission  <>  ’PAD’)  DO 
Current  :=  Current* .Next  ; 


While  Current* .Mission  -  'PAD'  DO 
BEGIN 

IF  (Current*. Location  -  'VANDENBERG' )  AND 
(Current*. Status  =  vr ACTIVE’)  THEN 
BEGIN 

GotoXY  (20 .VandLine)  ; 

Write  (Current* .Name: 10,  ’  *’,  Current* .TailNumber :3, 

’  (\,  Current* .NumRemaining:2,  ’)’)  ; 

VandLine  :=  VandLine  +  1  ; 

END  ; 

IF  (Current*. Location  =  'CANAVERAL')  AND 
(Current*. Status  *  'ACTIVE' >  THEN 
BEGIN 

GotoXY  (50,CapeLine)  ; 

Write  (Current* .Name: 10,  ’  *’,  Current* .TailNumber :3, 

’  C,  Current*.NumRemaining:2,  ’)’)  ; 

CapeLine  :=  CapeLine  +  1  ; 

END  ; 

Current  :=  Current* .Next  ; 

End  ;  (mission  -  pad) 

REPEAT 

Center_Line  (25, 'enter  V  for  Vandenberg  or  C  for  Cape  Canaveral  ’)  ; 
Read  (kbd.Ch)  *, 

CASE  Ch  OF 

’V’  ,  V  :  LaunchSite  :=  ’VANDENBERG’  ; 

'C'  ,  'c’  :  LaunchSite  :=  ’CANAVERAL’ 


UNTIL  Ch  IN  ['V',’v',’C’,'c']  ; 
END  ; 


{player  chooses  which  satellite  to  launch  from  list  of  all  Ready  sats) 
(allows  player  to  change  target  orbit  parameters  before  launch) 

OVERLAY  PROCEDURE  Choose_Launch_Sat  (VAR  Root  :  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

CountLines  :  integer  ; 

Stop  :  boolean  ; 

BEGIN 
ClrScr  ; 

Stop  False  ; 

Current  :=  Root  ; 

GotoXY  (24,2)  ;  Write  ('SATELLITES  READY  FOR  LAUNCH')  ; 

GotoXY  (1,4)  ;  Write  (’  Mission')  ;  GotoXY  (20,4)  ;  Write  ('Name')  ; 
GotoXY  (30,4)  ;  Write  (’Tail  Number’)  ; 

GotoXY  (45,4)  ;  Write  ('Orbit')  ; 

GotoXY  (55,4)  ;  Write  ('Inclination')  ; 

GotoXY  (72,4)  ;  Write  (‘Mass')  ; 

GotoXY  (1,6)  ; 

CountLines  :=  6  ; 

WHILE  (Current  <>  Nil)  AND  (CountLines  <  17)  DO 
BEGIN 

IF  (Current*. Mission  <>  'GROUND')  AND 
(Current*. Mission  <>  'LAUNCHER') 

AND  (Current*. Mission  <>  'PAD')  AND 
(Current* .Status  =  'READY')  THEN 
BEGIN 

Writeln  (Current* .Mission: 10 ,  Current* .Name: 15, 

Current  * . f ai INumber : 1 1 , 

Current*. Orbit: 12,  Current*. Inclination: 12, 
TenBlanks,  Current* .Mass: 5:0)  ; 

CountLines  :  =  CountLines  +  1  ; 

END  ; 

Current  :=  Current* .Next  ; 

END  ;  (not  nil  and  lines  <  17) 

(IF  CountLines  >=  17  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (24,  'Hit  *C*  to  continue  listing’)  ; 

IF  Continue  THEN  Choose  Launch  Sat  (Current)  ; 

END  ;) 


ClearLines  (23,25)  ; 

Certer.Line  (23,  'Enter  the  name  of  the  satellite  to  be  launched  ')  ; 
Center.Line  (24,  ’  tail  number  ')  ; 

GotoXY  (65,23)  ;  Read  (SearchName)  ; 

SearchNumber  :=  Getlnt  (StringNumber,  65,  24)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’YES’)  ; 

IF  Found  THEN' 

BEGIN 

IF  Where*. Status  =  ’READY’  THEN  (Verify  Orbit  Parameters) 

BEGIN 

Where -.Status  :=  ‘PENDING’  ; 

ClrScr  ; 

TextBackGround  (1)  ; 

ClrScr  ; 

Border 1  ; 

TextBackground  (1)  ; 

GotoXY  (20,6)  ; 

TextColor  (white)  ; 

Write  (’Projected  Orbit  Parameters  for  ’,  Where* .Name: 10  , 

Where* .TailNumber:3)  ; 

TextColor  (Yellow)  ; 

GotoXY  (26,10)  ; 

Write  ('  Orbit:  ’,  Where* .Orbit)  ; 

GotoXY  (26,12)  ; 

WRite  (’  Inclination:  ',  Where f . Inclination)  ; 

GotoXY  (26,  U).  ; 

Write  (’Ascending  Node:  ',  Where* . AscendingNode)  ; 

REPEAT 

Center  Line  (20,  ’Do  you  want  to  change  these  parameters  (Y/N)  ?  ’) 

IF  Yes  THEN 
BEGIn 

GotoXY  (41,10)  j  Write  (’  ’)  ; 

GotoXY  (41,12)  ;  WRite  (’  ’)  ; 

GotoXY  (41,14)  ;  Write  (’  ’)  ; 

GotoXY  (42 ^ 10)  ;  Read  (Where*. Orbit)  ; 

Where*. Inclination  : =  Getlnt  (StringNumber,  42,12)  ; 

Where* .AscendingNode  :«  Getlnt  (StringNumber,  42,  14)  ; 

END 

ELSE  Stop  :=  True  ; 

UNTIL  Stop  ; 

END  (status  is  LAU) 

ELSE  (Status  is  not  LAU) 

BEGIN 

ClearLines  (23,25)^  ; 

Gotoxy  (20,23)  ; 

WRite  (Where* .Name,  ’  is  not  Ready  For  Launch,  enter  another’) 
Center  Line  (25,  'Please  hit  <CR>  to  continue')  ;  Read  ; 

END  ; 

END  ;  (Found) 

END  ; 
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{called  when  creating  a  composite  satellite;  screen  shows  current  > 
{parasites  and  system  mass) 

OVERLAY  PROCEDURE  Compos  iterate  Hite  (Root  :  UnitPtr)  ; 

VAR 

ThisMass  :  real  ; 

HoldMass  :  real  ; 

Parasite  :  integer  ; 

Keep  :  UnitPtr  ; 

BEGIN 

Parasite-  :=  0  ; 

ClearLines  (23,25)  ; 

Center_Line  (23,  'Enter  name  of  the  Host  Satellite  ’)  ; 

Center_line  (24 „  '  Tail  Number  ')  ; 

GotoXY  (60,23)  ;  Read  (SearchName)  ; 

SearchNumber  : =  Getlnt  (StringNumber,  60,24)  ; 

Search  (Root,  SearchName,  SearchNumber ,  'NO')  ; 

IF  Found  THEN 
begin 

Keep  : =  Where  ; 

HoldMass  : =  Where*. Mass  ; 

ThisMass  :«  Where*. Mass  ; 

REPEAT 

GotoXY  (32,4)  ;  Write  (’Total  Mass  ’,  ThisMass:5:0)  ; 

ClearLines  (23,25)  ; 

Center_line  (23,  ’Enter  The  name  of,  the  Add-On  System  ')  ; 
Center_Line  (24,  '  Tail  Number  ')  ; 

GotoXY  (60,23)  ;  Read  (SearchName)  ; 

SearchNumber  :  =  Getlnt  (StringNumber,  60,24)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’NO') 

IF  Found  THEN 
begin 

IF  Where*. Mass  >  HoldMass  THEN  (host  system  must  be  largest) 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (23. 

'Add-On  System  is  heavier  than  host  satellite!!  REDO  !!') 
Center  Line  (24,  'Please  hit  <CR>  to  continue')  ;  Read  ; 

END 

ELSE 

BEGIN;  (ok  to  add  on) 

Parasite  :*  Parasite  +  1  ; 

ThisMass  :*  ThisMass  +  0.5  «  Where*. Mass  ; 

Where*. Status  :>  'Parasite'  ; 

Keep". Mass  :*  ThisMass  ; 

Composite  Satellite  Header  (Root)  ; 

GotoXY  (32,4)  ;  Write  ('Total  Mass  * ,  ThisMass:5:0)  ; 


IF  Parasite  =  1  THEN 
BEGIN 

Keep* . AddOnNamel  :=  Where ‘.Name  ; 

Keep* .AddOnNuml  :=  Where* .TailNumber  ; 

END' 

IF  Parasite  =  2  THEN 
BEGIN 

Keep* .AddOnNameS  :=  Where*. Name  ; 

Keep* .Add0nNum2  :=  Where* .TailNumber  ; 

END  ; 

IE  Parasite  =  3  THEN 
BEGIN 

Keep* .AddOnName3  Where*. Name 
Keep* .Add0nNum3  : =  Where* .TailNumber  ; 

END  ; 

IF  Parasite  =  4  THEN 
BEGIN 

Keep* .AddOriName4  : =  Where*. Name  ; 

Keep* .AddOnNum4  : =  Where* .TailNumber  ; 

END  ; 

IF  Parasite  =  5  THEN 
BEGIN 

Keep* .AddOnName5  :*  Where*. Name  ; 

Keep*  .Add(jnNum5  Where* .TailNumber  ; 

END  ; 

IF  Parasite  >  5  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (24, 

'Sorry,  a  max  of  five  sub-systems  on  a  satellite  ’)  ; 
Centerjjine  (25,  '  hit  any  key  to  continue')  ;  Read  (kbd.Ch) 
TextColor  (Yellow)  ; 

END 

END  ;  (weight  comparision  check) 

END  ;  (2nd  Found) 

ClearLines  (23,25)  ; 

GotoXY  ( 1 5 i 24 )  ; 

Write 

('Do  you  want  to  place  another  system  on  ’,  Keep*. Name,  ’  (Y/N)  ?  ') 
UNTIL  NOT  Yes  ; 

END  ;  (1st  Found) 

END 
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{shows  all.  satellites  currently  in  designated, "orbit  (active  and  spare)} 
{le„ts  player  put  sat  into  spare  status  or  mariuever  sat,  must  have  fuel) 
{to  manuever.  each  manuever  burns  one  fuel  load) 

OVERLAY  PROCEDURE  Orbit.Screen  {VAR  Root  :  UnitPtr  ; 

ThisOrbit  :  String5)  ; 

VAR 

CountLines  :  integer  ; 

Current  :  UnitPtr  ; 

HaveFuel  :  boolean  ; 

ChangeOrbit  :  boolean  ; 

NewOrbit  :  strings  ; 

Sawlnclination  :  integer  ; 

NewNode  :  integer  ; 

Spare  :  string  [2]  ; 

ThisName  :  string [12] 


BEGIN. 

Spare  :=  ’*  '  ; 

HaveFuel  :  =  False  ; 

ChangeOrbit  :  =  False  ; 

Current  :=  Root  ; 

Textbackground  (1)  ; 

ClrScr  ; 

Center  Line  (2,  ThisOrbit)  ; 

Center_Line  (3,  'ORBIT  SCREEN’)  ; 

Center  Line  (4,  ’*  Indicates  Spare  Status')  ; 

G6toXY~(7,8)l  ;  WRite  ('SYSTEM  •')  ; 

GotoXY  (28,8)  ;  Write  (’FUEL’)  ; 

GotoXY  (38,6)  ;  Write  ('INCLINATION’)  ; 

GotoXY  (80,6)  ;  Write  (’ASCENDING  NODE’)  ; 

GotoXY  (1,8)  ; 

CountLines  ;=  8  ; 

While  (Current  <>  Nil)  AND  (CountLines  <  23)  DO 
BEGIN 

IF  (Current*. Orbit  *  ThisOrbit)  AND 
(Current*. Mission  <>  ’LAUNCHER')  AND 
(Current*. Mission  <>  ’GROUND’)  AND 
(Current*. Mission  <>  'PAD')  AND 
( (Current* .Status  =  ’ACTIVE’)  OR 
(Current* .  Status  =  ’;SPARE  ’ ) )  THEN 

BEGIN 

IF  Current*. Status  «  'ACTIVE' 

THEN  ThisName  :=  Current* .Name  ; 

IF  Current*. Status  »  ’SPARE’ 

THEN  ThisName  :=  Spare  ♦  Current* .Name  ; 

Writeln  (ThisName: 12,  Cur rent *.TailVumber:6,  TenBlanks, 
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1 

! 

Current* .Manuvers: 2:0,  Current*. Inclination: 14, 

Current* . AscendingNode: 24)  ; 

CountLines  :=  CountLines  +  1  ; 

END  ; 

Current  :=  Current* .Next  ; 

END  ; 

{IF  CountLines  >=  23  THEN 

BEGIN  S 

ClearLines  (23,25)  ;  I 

Center.:Line  (24,  ’Hit  *C*  to  continue  listing  ’)  ;  | 

IF  Continue  THEN  Orbit_Screen  (Current,  ThisOrbit)  ; 

END  ;) 

ClearLines  (23,25)  ; 

Center  ..Line  (23, 

’Ativate  a  spare  or  put  a  system  into  spare  status  (Y/N)  ’)  ; 

IF  Yes  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center^Line  (23,  ’Enter  Satellite  Name  ’)  ; 

Center_Line  (24,  ’Enter  Satellite  Number  ’)y  ; 

Gotoxy  (55,23)  Bead  (SearchName)  ; 

SearchNumber  : =  Getlnt  (StringNumber ,  55,24)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’NO’)  ; 

IF  Found  THEN 
BEGIN 

IF  Where*. Status'  =  ’ACTIVE’  THEN 
BEGIN 

Where* .Status  :=  ’SPARE’  ; 

END  I 

ELSE  Where*. Status  :*  ’ACTIVE’  ;  j 

END  ;  {Found)  ( 

I 

END  ;  {yes} 


ClearLines  (23,25) 

Center_Line  (23  „ 

’DO  you  wish  to  change  the  orbit  of  a  satellite  (Y/N)  ?  ’)  ; 
IF  Yes  THEN  ChangeOrbit  :=  True  ; 

IF  ChahgeOrbit  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center.Line  (23,  ’Enter  name  of  satellite  ’)  ; 

Center  Line  (24,  ’which  tail  number  ’)  ; 

GotoXY  (55,23)  ;;Bead  (SearchName)  ; 

SearchNumber  :*  Getlnt  (StringNumber ,55,24)  ; 

Search  (Boot,  SearchName,  SearchNumber,,  ’NO’)'  : 

IF  Found  THEN 
BEGIN  ' 
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IF  Where* .Manuvers  >=  1  THEN  HaveFuel  :=  True  ; 

IF  (HaveFuel)  AND  (Where* .Status  =  'ACTIVE')  THEN 
BEGIN 
REPEAT 

ClearLines  (21,25)  ;  GotoXY  (32,21)  ; 

Write  (’Moving  ’,  Where* .Name,  Where* .TailNumber :3)  ; 

Center_Lina  (22,  'Enter  desired  orbit  (VLEO,  LEO,  MOL  etc)  ’); 

Center_Line  (23,  ’Enter  desired  inclination  (0  **  95)  ’); 

Center_Line  (2*1,  ’Enter  desired  ascending  node  (-180  ..  +180)’); 

GotoXY" (65, 22)  ;  Read  (NewOrbit)  ; 

Newlnclination  :=  Getlnt  (StringNumber ,  65,23)  ; 

NewNode  :=  Getlnt  (StringNumber,  65,24)  ; 

Center  Line  (25,  ’Are  these  correct  (Y/N)  ??  ’)  ; 

UNTIL  Yes  ; 

Where*. Orbit  :=  NewOrbit  ; 

Where* .Inclination  :=  Newlnclination  ; 

Where* .AscendingNode  :=  NewNode  ; 

Where* .Manuvers  :=  Where* .Manuvers  -  1  ; 

END 

ELSE 

BEGIN 

ClearLines  (23,25)  ; 

Center Jiine  (24 ,  ’NOT  ENOUGH  FUEL  OR  Satellite  not  active’) 
TextColor  (White)  ; 

Center_Line  (25,  ’hit  any  key  to  continue’)  ;  Read  (kbd.Ch)  ; 
TextColor  (Yellow)  ; 

END  ;  (fuel  check/  acitve  status) 

END  ;  (Found) 

END  ;  (change  orbit) 

END  ; 


(gives  health  status  check  of  a  constellation,  shows  orbit  parameters) 
(and  the  expected  lifetime  left  in  each  sat) 

OVERLAY  PROCEDURE  System_Age  (VAR  Root  :  UnitPtr  ; 

ThisMission  :  stringlO)  ; 

VAR 

Age,  Remaining  :  integer  ; 

Current  :  UnitPtr  ; 

ThisName  :  string  [12]  ; 

Spare  ;  string  £ 23  ; 

CountLines  :  integer  ; 

BEGIN 

toxtbackground  C/1)  ; 

ClrScr  ; 
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Spare  :=  ’*  '  ; 

Center  Line  (2,  ThisMission)  ; 

GotoXY~(25,3)  ;  Write  (’CONSTELLATION  AGE  SCREEN  Year:4)  ; 

GotoXY  (28,4)  ;  Write  (’*  indicates  spare  status’)  ; 

TextColor  (White)  ; 

GotoXY  (20,6)  ;  Write  ('  YEARS’)  ; 

GotoXY  (32,6)  ;  Write  ( ’ MANUEVERS ’ )  ; 

GotoXY  (70,6)  ;  Write  (’ASCENDING’)  ; 

GotoXY  (5,7)  ;  Write  (’  SYSTEM  *’)  ; 

GotoXY  (20,7)  ;  Write  (’REMAINING’)  ; 

GotoXY  (32,7)  ;  Write  (’REMAINING’)  ; 

GotoXY  (46,7)  ;  Write  ('ORBIT’)  ; 

GotoXY  (55,7)  ;  Write  (’INCLINATION’)  ; 

GotoXY  (73,7)  ;  WRite  (’NODE’)  ; 

TextColor  (Yellow)  ; 

GotoXY  (1,9)  ; 

CountLines  :=  9  ; 

Current  :  =  Root  ; 

While  (Current  <>  Nil)  AND  (Current* .Mission  <>  ThisMission)  DO 
Current  :=  Current* .Next  ; 

While  (Current  <>  Nil)  AND  (Current* .Mission  =  ThisMission)  AND 
(CountLines  <  23)  DO 
BEGIN 

IF  (Current* .Status  =  ’ACTIVE’)  OR 
(Current*. Status  =  ’SPARE’)  THEN 
BEGIN 

IF  Current*. Status  =  ’ACTIVE’ 

THEN  ThisName  :=  Current* .Name  ; 

IF  Current*. Status  =  ’SPARE’ 

THEN  ThisName  :=  Spare  +  Current* .Name  ; 

Age  :  =  Year  -  Current* .Deployed  ; 

Remaining  :=  Current* .LifeTime  -  Age  ; 

W»*iteln  (ThisName:  12,  Current*  .TailNumber :3 ,  Remaining:9, 
TenBlanks,  ’  ’,  Current* .Manuvers: 2:0, 

Current* .Orbit: 11 , 

Current* . Inclination: 12, 

Current* . AscendingNode: 14)  ; 

CountLines  :  =  CountLines  +  1  ; 

END  ; (status  is  active  or  spare) 

Current  :=  Current* .Next  ; 

END  ;  (thismission) 

IF  CountLines  >=  23  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (24,  ’Hit  *C‘  to  continue  listing’)  ; 

IF  Continue  THEN  System  Age  (Current,  ThisMission)  ; 

END  ;  ) 


ClearLines  (23,25)  ; 

TextColor  (White)  ; 

Center  Line  (24,  'Hit  any  key  to  continue')  ;  Head  (kbd.Ch) 
TextColor  (Yellow)  ; 

END  ; 


{allows  players  to  see  ground  swaths  for  a  mission) 

OVERLAY  PROCEDURE  Ground.Track  (Root  :  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

ThisMission  :  stringlO  ; 

Quit  :  boolean  ; 

Orbit  :  strings  ; 

Inc  :  integer  ; 

Ascending  :  integer  ; 

Stop  :  boolean  ; 

BEGIN 

Stop  False  ; 

Quit  :=  False  ; 

TextBackground  (1)  ; 

ClrScr  ; 

Border 1  ; 

TextBackground  (1)  ; 

Textcolor  (White)  ; 

Center _Line  (3.  'GROUND  SWATH  SCREEN’)  ; 

TextBackground  (1)  ; 

Center_line  (6,  ’[Cloram  ’)  ; 

Center  line  (8,  ’ [N]av  ’)  ; 

Center_line  (10,  ' [Wleather  ’)  ; 

Center_line  (12,  ’[Ilmint  ’)  ; 

Center_Line  (14,  ’[Sligint  ’)  ; 

Center_Line  (16,  ’W[A]rning  ’)  ; 

Center_Line  (18,  '[Qluit  ’)  ; 

Center_Line  (23, 

'Enter  which  mission  you  want  to  see  ground  swaths  of) 


Gotoxy 

(40,24) 

;  Read  (kbd.Ch)  ; 

CASE  Ch 

OF 

’C, 

'c'  : 

ThisMission  :  = 

'COMM'  ; 

’N', 

'n'  : 

ThisMission 

•NAV'  ; 

*W’ , 

•w’  : 

ThisMission  := 

'WEATHER'  ; 

’I*. 

'i'  : 

ThisMission  := 

'IMINT'  ; 

’QVq’ 
ENd  ;  (Case) 


:  ThiaMission  :=  'SIGINT’ 

:  ThiaMission  :=  ’WARNING’ 
:  Quit  :=  True  ; 


IF  Not  Quit  THEN 
BEGIN 

Current  :=  Root  ; 

GraphCo lor Mode  ; 

PutPic  (World,  0,200)  ; 

GotoXY  (10,1)  ;  Write  (ThiaMission,  '  Ground  Swaths’)  ; 

While  (Current  <>  Nil)  DO 
BEGIN 

IF  (Current* .Mission  =  ThisMissio.n)  AND 
(Current* .Status  =  ’ACTIVE’) 

THEN  Trace  (Current* .Orbit,  Current* .Inclination, 

Current*. AscendingNode ,  Current* .Mission)  ; 
Current  :=  Current*. Next  ; 

END  ;  (while) 

END  ;  (not  quit) 

REPEAT 

GotoXY  (1,25)  ;  WRite  (’Add  a  Hypothetical  Satellite  (Y/N)  ?  ’)  =; 
IF  Yes  THEN 
BEGIN 

GotoXY  (1,25)  ; 

Write  (’Enter  Orbit  (VLEO.MEO  etc)  ’)  ; 

GotoXY  (30,25)  ;  Read  (Orbit)  ; 

GotoXY  (1,25)  ; 

Write  (’Enter  Inclination  (0  -  95)  ’)  ; 

GotoXY  (30,25)  ; 

Inc  :  =  Getlnt  (StringNumber ,  30,25)  ; 

GotoXY  (1,25)  ; 

Write  (’Enter  Ascending  Node  (-180.. +180)  ')  ; 

GotqXY  (35,25)  ; 

Ascending  :  =  Getlnt  (StringNumber,  35,25)  ; 

Trace  (Orbit,  Inc,  Ascending,  ThiaMission)  ; 

END 

ELSE  Stop  :=  True  ; 

UNTIL  Stop  ; 

TextColor  (White)  ; 
gotoxy  (1,25)  ;  write  (‘ 
read  (kbd,Ch)  ; 

TextMode  ; 

END  ; 


hit  any  key  to  continue 


’) 


(checks  ground  units) 
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{for  multiple  satellite  capability  and  automatically  assigns  ground) 
{units  to  the  apporiate  satellites) 

OVERLAY  PROCEDURE  Assign_Support  (Root  :  UnitPtr)  ; 

VAR 

CountLines  :  integer  ; 

Assign  :  boolean  ; 

Current,  Keep  r  UnitPtr  ; 

ThisName  :  stringlO  ; 

ThisNumber  :  integer  ; 

TempName  :  stringlO  ; 

TempNumber  :  integer  ; 

Catagory  :  stringlO  ; 

BEGIN 

CountLines  0  ; 

ClrScr  ; 

REPEAT 

Display  System  CheckList  (Root)  ; 

Window  7l, 14, 80, 25)  ; 

Textbackground  (0)  ; 
clrscr  ; 

Assign  :=  True  ; 

Current  :=  Root  ; 

Textcolor  (white)'  ; 

Centerline  (1,  'ASSIGN  GROUND  SYSTEMS  TO  SATELLITES’)  ; 

GotoXY  (5,3)  ;  WRite  ('Ground  Control’)  ; 

Gotoxy  (30,3)  ;  Write  (’Data  Processor’)  ;> 

GotoXY  (55,3)  ;  Write  (’User  Terminal’)  ; 

GotoXY  (1,5)  ; 

Catagory  :=  ’CONTROL’  ; 

Count_Ground  (Root,  Catagory)  ; 

Catagory  :*  ’PROCESSOR’  ; 

Count_Ground  (Root,  Catagory)  ; 

Catagory  :=  ’USER’  ; 

Count_Ground  (Root,  Catagory)  ; 


Center_Line  (12, 

’Enter  *Q*  to  stop  assigning  ground  units  or  <CR>  to  continue’)  ; 
Read  (kbd,Ch)  ; 

IF  (Ch  *  ’Q’)  OR  (Ch  =  ’q’)  THEN  Assign  :=  False  ; 

IF  Assign  THEN 
BEGIN 

Window  (1,1,80,25)  ; 

ClearLines  (24,25)  ; 

Center.Line  (24,  ’Enter  name  of  the  ground  unit  to  assign  ')  ; 
Center_Line  (25,  ’  enter  tail  number  ’)  ; 

GotoXY  (60,24)  ;  Read  (SearchName)  ; 

SearchNumber  :=  Getlnt  (StringNumber,  60,25)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’NO’)  ; 

IF  Found  THEN 
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begin 

Keep  : =  Where  : 


Textbackground  (1)  ; 

Center_Line  (12, ’assigned  to  which  satellite  ’)  ; 

Center_Line  (13,  '  which  tail  number  ’  )  ; 

GotoXy  (55,12)  ;  Read  (SearchName)  ; 

SearchNumber  :=  Getlnt  (StringNumber ,  55,13)  ; 

ClearLines  (12,13)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’NO’)  ; 

IF  Found  THEN 
begin 

TempName  :  =  Keep*. Name  ; 

TempNumber  :=  Keep* .TailNumber  ; 

IF  Keep*. Kind  =  ’CONTROL’  THEN 
BEGIN 

IF  (Keep*. Name  =  ’SUGCT’)  OR  (Keep*. Name  =  ’SUMGCT’)  THEN 
BEGIN 

Current  :=  Root  ; 

While  (Current  <>  Nil)  DO 
BEGIN 

IF  (Current* .Name  =  Where* .Name)  AND 
(Where*. Orbit  <>  ’GEO’)  THEN 
BEGIN 

Current* .ControlName  :=  Keep*. Name  ; 

Current ‘.ControlNumber  :*  Keep* .TailNumber  ; 
END  ; 

Current  :=  Current* .Next  ; 

END  ; 

END  ; 

Where* .ControlName  :  =  TempName  ; 

Where *. Con trolNumber  :=  TempNumber  ; 

Keep* .SupportName  :=  Where*. Name  ; 

Keep* . SupportNumber  :s  Where* .TailNumber  ; 

END  ; 

IF  Keep*. Kind  =  ’PROCESSOR’  THEN 
BEGIN 

IF  (Keep*. Name  =  ’SUDP’)  OR  (Keep*. Name  =  ’ SUMDP ’ )  THEN 
BEGIN 

Current  :=  Root  ; 

While  (Current  <>  Nil)  DO 
BEGIN 

IF  (Current* .Name  =  Where* .Name).  AND 
(Where*. Orbit  <>  ’GEO')  THEN 
BEGIN 

Current* .ProcessorName  :=  Keep*. Name  ; 

Current* . ProcessorNumber  :=  Keep*. TailNumber  ; 
END  ; 

Current  :=  Current* .Next  ; 

END  ; 
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END  ; 


IF  (Keep* .Name  =  ’MUDP’)  OR  (Keep*. Name  =  ’ MUMDP ’ )  THEN 
BEGIN 

Current  :=  Root  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  Current* .Mission  =  Where* .Mission  THEN 
BEGIN 

Current* .ProcessorName  :=  Keep*. Name  ; 
Current*.ProcessorNumber  :=  Keep* .TailNumber  ; 
END  ; 

Current  :=  Current* .Next  ; 

END  ; 

END  ; 

Where* .ProcessorName  :  =  TempName  ; 

Where* .ProcessorNumber  :  =  TempNumber  ; 

Keep* .SupportName  :=  Where*. Name  ; 

Keep* . SupportNumber  : =  Where* .TailNumber  ; 

END  ; 

IF  Keep*. Kind  =  ’USER’  THEN 
BEGIN 

IF  Keep*. Name  =  ’SUUT’  THEN 
BEGIN 

Current  :=  Root  ; 

While  Current  O  Nil  DO 
BEGIN 

IF  Current* .Name  =  Where*. Name  THEN 
BEGIN 

Current ‘.UserName  :=  Keep*. Name  ; 

Current* .UserNumber  :=  Keep* .TailNumber  ; 

END  ; 

Current  :=  Current* .Next  ; 

END  ;  (while) 

END  ;  (SUUT) 

IF  Keep*. Name  =  ’MUUT’  THEN 
BEGIN 

Current  :=  Root  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  Current*. Mission  =  Where* .Mission  THEN 
BEGIN 

Current* .UserName  :=  Keep*. Name  ; 

Current* .UserNumber  :=  Keep* .TailNumber  ; 

END  ; 

Current  :*  Current* .Next  ; 

END  ;  (while) 

END  ;  (name  =  MUUT) 

Where*. UserName  : =  TempName  ; 
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Where* .UserNumber  :=  TeopNumber  ; 

Keep* .SupportName  :=  Where*. Name  ; 

Xeep*  .SupportNusnber  :=  Where* .TailNumber  ; 
END  ; 

END  ;  (tound2) 

END  ;  (foundl) 

END  ;  (assign) 


UNTIL  NOT  Assign  ; 


Window  (1,1,80,25)  ; 
END  ; 


PROCEDURE  Constellatiori_Age_Screen  (Root  :  UnitPtr)  ; 

VAR 

Quit  :  boolean  ; 

BEGIN 

Quit  :=  False  ; 

REPEAT 

TextBackground  (1)  ; 

ClrScr  ; 

Border 1  ; 

textbackground  (1)  ; 
textcolor  (white)  ; 

Center.Line  (3,  ’  CONSTELLATION  AGE  SCREEN  ’)  ; 

TextBackground  (1)  ; 

Center  Line  (6,  ' [ClOMM  CONSTELLATION  ’)  ; 

Center  Line  (8,  * tW]EATHER>  CONSTELLATION’ )  ; 

Center  Line  (10,  *CN)AV  CONSTELLATION  ')  ; 

Center  Line  (12,  ’(I3MINT  CONSTELLATION  ’)  ; 

Center  Line  (14,.  ’[S3IGINT  CONSTELLATION  ’)  ; 

Center  Line  (16,  ’ W[ A ]RNING  CONSTELLATION’)  ; 

Center.Line  (18,  ' [QlUIT  TO  MAIN  MENU  ’)  ; 

TextColor  (White)  ; 

Center  Line  (23,  'Choose  the  constellation  you  want  to  see’)  ; 
TextColor  (Yellow)  ; 

GotoXY  (40,24)  ; 

Read  (kbd,  Ch)  ; 

Case  Ch  OF 

’C’.’c’  :  Sy*tea_Age  (Root,  ’COMM’ )  ; 

’W’ ,’w’  :  System.. Age  (Root,  ’WEATHER’)  ; 

’N’.’n’  :  System_Age  (Root,  ’NAV’)  ; 
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’  I ' , '  i ' 

:  System_Age 

(Root,  ’IMINT’)  ; 

’S’ ,’s’ 

:  System_Age 

(Root,  ’SIGINT’)  ; 

•A’, ’a’ 

:  System_Age 

(Root,  ’WARNING’)  ; 

’QW 

:  Quit  :=  True  ; 

END  ;  (Case) 
Until  Quit  ; 
END  ; 


PROCEDURE  Choose_.0rbit_Scr.een  (Root  :  UnitPtr)  ; 

VAR 

ThisOrbit  :  string5  ; 

Quit  :  boolean  ; 

BEGIN 

REPEAT 

Quit  : =  False  ; 

Textbackground  (1)  ; 

ClrScr  ; 

Border 1  ; 

Textbackground  (1)  ; 

Textcolor  (White)  ; 

Center  Line  (3,  'TABULAR  ORBIT  SCREEN’)  ; 

GotoXY  (35,5)  ;  Write  (’YEAR  ’,  Year: 4)  ; 

TextBackground  (1)  ; 

Center  Line  (8,  ’(V1LE0  ORBIT  ’)  ; 

Center.  Line  (10 ,  ’ (L3E0  ORBIT  ’)  ; 

Center.Line  (12,  ’ [M3E0  ORBIT  ’)  ; 

Center  Line  (14,  'ME03L  ORBIT  ’)  ; 

Center  Line  (18,  ’  tGlEO  ORBIT  ’) 

Centerline  (18,  ?tQ3uit  to  MAIN  MENU.’)  ; 

Center  JLine  (21,  'Enter  which  orbit  screen  you  want  to  see  ’) 
GotoXY  (40, 23)>  ; 


Read 

CASE 

(kbd.Ch) 
Ch  OF 

* 

•V’ 

,  V  : 

Orbit_Screen  (Boot, 

*VLEO’) 

’L’ 

,  'l*  : 

Orbit_Screeri  (Root, 

’LEO’) 

?M’ 

,  ’m’  : 

Orbit_Screen  (Root, 

’MEO’) 

*0’ 

,  'o’  : 

brbitJScreen  (Root, 

’MOL’) 

’G’ 

.  : 

Orbit_Screen  (Root, 

’GEO’) 
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:  Quit  :=  True 


'Q’  ,  'q' 

END  ;  (CASE) 
UNTIL  Quit 
END 


(main  deployment  procedure} 

PROCEDURE  Match_PayLoads_Wi th_Launchers  (Root  :  UnitPtr)  ; 
VAR 

Quit  :  boolean  ; 

BEGIN 

Quit  : =  False  ; 

ClrScr  ; 

Textbackground  (1)  ; 

Border!  ; 

Textbackground  (1)  ; 

Centerline  (12,.  ’DEPLOYMENT  PHASE*)  ; 

Delay  12000)  ;  . 

REPEAT 

Textbackground  (1)  ; 

ClrScr  ; 

Border 1  ; 

TextBackGround  (!)  ; 

Textcolor  (White)  ; 

GotoXY  (29,3)  ;  WRite  (’Remaining  Budget  ’,  BUDGET: 6)  ; 
GotoXY  (35,4)  ;  Write  (’Year  ’,  Year: Cl  ; 
textbackground  I)  ; 

CenterJLine  (  7,  ’[1]  Create  a  Composite  Satellite’)  ; 


Center_Line  (  9,  '[2]  Start  the  Launch  Process  ’) 
Center_Line  (11,  ’ [31  Display  Unit  Attributes  ’) 
Center_Line  (13,  * [43  Display  Orbits/Manuever  Sets’) 
Center_Line  (15,  ’[5]  Constellation  Age  Screen  ’) 
Center jLine  (17,  ’[61  Show  Ground  Traces  ’) 
Center  , Line  (19,  '[Q]  Quit  to  Next  Phase  ’) 
GotoXY  (40,20)  ; 

Read  (kbd.Ch)  ; 


CASE  .Ch  OF 


’ 1 ’  :  BEGIN 

IF  Help  THEN  Help.Screen  (4)  ; 
Compoaite_SatellitejBeader  (Root)  ; 
Composite  Satellite  (Boot)  ; 

EW>  ; 
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I 

*1 


-I 

J 

92$  i  BEGIN 

IF  Help  THEN  Help_Screen  (5)  ; 

Choose  Lauhch_Sat  (Boot)  ; 

IF  (Found)  AND  ((Where* .Status  =  ’READY’)  OR 
(Where* .Status  =  ’PENDING’))  THEN 
BEGIN 

Choose  Launch  Site  (Root)  ; 

Choose  Launcher  (Root,  Where*)  ; 

IF  NASAOK  THEN  Launch  (Root,  Where*)  ; 

END  ;  (FOund) 

END  ; 


’3’ 

:  BEGIN 

ClrScr  ; 

Center_Line  (12,  'enter  name  of  unit  ’)  ; 

Center_Line  (14,  'enter  tail  number  ’)  ; 

GotoXY  (50,12)  ;  Read  (SearchName)  ; 

SearchNumber  : =  Getlnt  (StringNumber ,50, 14)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’YES’)  ; 

END  ; 

c 

’4’ 

:  Choose^OrbitJScr.een  (Root)  ; 

’5’ 

:  Constellation„AgejScreen  (Root) 

’6* 

Ground_Track  (Root)  ; 

#27 

.  begin 

IF  XeyPressed  THEN. 

BEGIN 

Read  (kbd,Ch)  ; 

IF  Ch  =  #15  THEN  System  Level  Commands  (Root)  ; 

END  ; 

END  ; 

} 

5 

•Q«,  'q- 

:  Quit  : =  True  ; 

END  ; 

UNTIL  Quit  ; 
END  ; 


(main  acq  proc) 

PROCEDURE  Update.Units  (VAR  Root  :  UnitPtr)  ; 
VAR 
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Quit  :  boolean  ; 


BEGIN 

Quit  : =  False  ; 

Textbackground  (1)  ; 

CIrScr  ; 

Border 1  ; 

Textbackground  (1)  ; 

Center  Line  (12,  ’ACQUISITION  PHASE’)  =; 

Delay  (20.00) ; 

REPEAT 

Textbackground  (1)  ; 
clrscr  ; 

Border 1  ; 

TextBackground  (1)  ; 

TextColor  (White)  ; 

GotoXY  (29,3)  ;  Write  (’Remaining  Budget  ’,  BUDGET:6)  ; 


GotoXY  (35,4)  ;  Write  (’Year  *  ,  Year:6)  ; 
textbackground  (1) 

Center _Line  (  7,  ’ll]  Display  Satellite  ACB  Screen  ’) 

Center_Line  (8,  ’  AND  Resuable  Launchers  ’) 

Center_Line  (10,  ’[2]  Display  Launcher  ACB  Screen  ’) 

Center^Line  (12,  *[3l  Add  Survivability  ’) 

Canter_Line  (14,  * [43  Display  Unit  Attributes  ’) 

Center_Line  (18,  ’  [51  Constellation  Age  Screen  ’,) 

Ceriterjiine  (18,  ' [6]  Display  Orbits/Manuever  Sats  ’) 

Center_Lins  (20,  *  [73  Show  Ground  Traces  ’•) 

Center  Line  (22,  ’ [QlQuit  to  Next  Phase  ’) 

GotoXY  (40,24)  ; 

Read  (kbd,Ch)  ; 


CASE  Ch  OF 

’  i  ’  -  BEGIN 

IF  Help  THEN.  HelpJScreen  (1)  ; 
Display_Satellite.ACB_Screen  (Root)  ; 
END  ; 


’2’  :  BEGIN 

'  IF  Help  THEN  HelpJScreen  (2)  .; 

Display  ExpendableLauncher  ACB  Screen  (Root) 
END  ; 

'  *3’  :  BEGIN 

IF  Help  THEN  Help.Screen  (3)  ; 

Add  Survivability  (Root)  ; 

END 

’4*  :  BEGIN 

CIrScr  ; 

CenterJLine  (12,  ’enter  name  of  unit  ’)  ; 
Center  ..Line  (14,  ’enter  tail  number  ’)  ; 


s 

; 

GotoXY  (50,12)  ;  Read  (SearchName)  ; 

SearchNumber  :=  Getlnt  (StringNumber ,  50,14)  ; 
Search  (Root,  SearchName,  SearchNumber,  ’YES’)  ; 
END 

’5’ 

:  Cons tel lation^Age_Screen  (Root)  ; 

’6' 

:  Choose_0rbit_Screen  (Root)  ; 

:  Ground_Track  (Root)  ; 

#27 

:  BEGIN 

IF  KeyPressed  THEN 

BEGIN 

Read  (kbd.Ch)-  ; 

IF  Ch  =  #15  THEN  System  Level  Commands  (Root) 
END  ; 

END  ; 

Ini  *»  —  # 

Q  »  q 

:  Quit  :*>True  ; 

END  ; 

UNTIL  Quit 


END  ; 


(called  at  year  start,  charges  all  active  pads  and  ground  units) 
PROCEDURE  Assess_0MCo8ts  (Root  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

BEGIN 

Text.background  ,(1)  ; 

ClrScr  ; 

Border 1  ; 

Textbackground  (1)  % 

Center  Line  (12,  *  ASSESSING  O&M  COSTS  FOR  GROUND  UNITS;  AND  PADS’)  ; 
GotoXY  (33,14)  Write  (’FOR  YEAR-  ’.  Year:5)  ; 

Delay  (2000),  ; 

Current  : =  Root  ; 

WHILE  (Current  O  Nil)  DO 
BEGIN 

IF?  (Current*. Mission  *  ’PAD’)  OR  (Current^;  Mi ssi on  s  ’GROUND*) 
AND  (Current* ; Status  =’ ACTIVE’)  THEN 
BUDGET  :•*  BUDGET  -  Current* .OMCost  ; 

Current  :*Current*.Next  ; 

END  ;;  (while) 
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END  ; 


(if  control  node  is  complete  assigns  all,  units} 

PROCEDURE  Assign_Ground_Node  (Root  :  UnitPtr  ;  Node  StringiO  ; 

Name  :  stringiO  ;  Number  :  integer)  ; 


VAR 

Current  :  UnitPtr  ; 

BEGIN 

Current  :s  Root  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  (Current*. Mission  <>  'LAUNCHER')  AND 
(Current* .Mission  <>  'PAD')  AND. 
(Current* .Mission  <>  'GROUND')  THEN 
BEGIN 

IF  Node  =  'CONTROL'  THEN 
BEGIN 

Current* .ControlName  : =  Name  ; 
Current* .ControlNumber  :=  1.  ; 
END  ; 

ENd  ; 

Current  :=  Current* .Next  ; 

END  ; 

END  ; 


PROCEDURE  Check.Support  (VAR  Root  :  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

NumCGCT,  NumCMGCT  :  integer  ; 

CompleteCGCT,  CompleteCMGCT,  HaveCSOC  :  boolean  ; 

BEGIN 

NumCGCT  :=  0  ;  NumCMGCT  :=  0  ; 

CompleteCGCT  False  ;  CompleteCMGCT  .:  =  False  ;  HaveCSOC  : =  False  ; 
Current  :=  Root  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  Current*. Mission  =  'GROUND'  THEN 
BEGIN 

IF  (Current*. Name,  =  'CGCT')  AND 

(Current*. Status. •=  ’ACTIVE’)  THEN- 
NumCGCT  :=  NumCGCT  +  1  ; 

IF  (Current*. Name  =  ’CMGCT’)  AND 
(Current*. Status  =  'ACTIVE')  THEN 
NumCMGCT  :=  NumCMGCT  +  1  ; 

IF  (Current*. Name  *  'CSOC')  AND 

(Current*. Status  =  'ACTIVE')  THEN 
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HaveCSOC  :=  True  ; 


END  ;  {mission  =  Ground} 

Current  :=  Current* .Next  ; 

END  ;  {not  nil) 

IF  (NumCGCT  >=  4)  OB  ( (NumCGCT  >=  3)  AND  HaveCSOC)  THEN 
CompleteCGCT  :=  True  ELSE  CompleteCGCT  :  =  False  ; 

IF  (NumCMGCT  >=4)  OB  ( (NumCMGCT  >=  3)  AND  HaveCSOC)  THEN 
CompleteCMGCT.  :=  True  ELSE  CompleteCMGCT  :=  False  ; 

IF  CompleteCMGCT 

THEN  Assign  Ground  Node  (Root,  ’CONTROL',  ' CMGCT ’ ,  1) 
ELSE 

IF  CompleteCGCT 

THEN  Ass ign_Ground_Node  (Root,  ’CONTROL’,  ’CGCT’,  1)  ; 

{#*«*******##*###***###*#«*#**#  *#*m} 

Current  :=  Root  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  (Current*. Mission  <>  ’GROUND’)  AND 
(Current* .Mission  <>  ’LAUNCHER’) 

AND  (Current* .Mission  <>  ’PAD’)  THEN 
BEGIN 

IF  HaveCSOC  THEN 
BEGIN 

Current*  .ProcessorName  :=  ’CSOC’  ; 

Current* .ProcessorNumber  :=  1  ; 

END  ;; 

IF  (Current* .ControlName  <>  ”)  AND 
(Current ‘.ControlName  <>  ’NONE’)  AND 
(Current* .ProcessorName  <>  ”)  AND 
(Current* .ProcessorName.  <>  'NONE')  AND 
(Current*  .UserName  <>  ”)  AND 
(Current* .UserName  <>  ’NONE’)  AND 
(Current* . Status  =  ’PRODUCTION’) 

THEN  Current* .Status  :=  ‘READY’  ; 

END  ; 

Current  Current*. Next  ;  (not  grouhd/launcher/pad) 

END  ;  {not  nil) 

END  ; 


{checks  databse  for  new  fesible  units} 

PROCEDURE  UpdateJBuyable  (Root  :  UnitPtr  ;  ThisMission  :  stringlO 

HighTechLevel  :  integer  )  ; 


Current  :  UnitPtr  ; 


BEGIN 

Current  :=  Root  ; 

WHILE  (Current  <>  Nil)  AND  (Current* .Mission  <>  ThisMission)  DO 
Current  :=  Current* .Next  ; 


WHILE  (Current  <>  Nil)  AND  (Current* .Mission  =  ThisMission)  DO 
BEGIN 

IF  (Current* .TechLevel  =  HighTechLevel  +  1)  AND 

( (Current* .Status  =  ’NONE’)  OR  (Current* .Status  =  ’’)) 
THEN  Current*. Status  ;«  ’FEASIBLE’  ; 

Current  :=  Current* .Next  ; 

END  ;  (while) 


END  ; 


OVERLAY  PROCEDURE  AssignJ3round_Support  (Root  :  UnitPtr)  ; 

BEGIN 

Textbackground  (1)  ; 

ClrScr  ; 

Border  1  ; 

Textbackground  (1)  ; 

Center  Line  (12,  ’ASSIGN  GROUND  SUPPORT  ELEMENTS  TO  SATELLITES’) 
GotoXY  (33,14)  ;  Write  ('FOR  YEAR  ’,  Year:5)  ; 

Delay  (2000)  ; 

IF  Help  THEN  Help_Screen  (7)  ; 

REPEAT 

Check_Support  (Root)  ; 

AssignJSupport  (Root)  ; 

Window  (1,1,80,25)  ; 

Check_Support  (Root)  ; 

ClearLines  (25,25)  ; 

Center_Line  (25, 

’Do  you  want  to  assign  more  ground  units  (Y/.N)  ?  ’)  ; 

Read  (kbd.Ch)  ; 

IF  (Ch-  *  t27)  AND  KeyPressed  THEN 
BEGIN 

Read  (kbd.Ch)  ; 

IF  Ch'  ~  «15  THEN  System  Level  Commands  (Root)  ; 

END  ; 

UNTIL  Ch  IN  C’N’  ,  ’n'3  ; 

END  •; 


OVERLAY  PROCEDURE  Get_TechLevel  (Root  :  UnitPtr)  ; 

VAR 

Current  ;  UnitPtr  ; 

ThisMission  :  stringlO  ; 

HighTechLevel  :  integer  ; 

BEGIN 

Textbackground  (1)  ; 

Center  Line  (12,  '  ’)  ; 

Centerline  (12,  ‘UPDATING  ’FEASIBLE*  SYSTEMS’)  ; 

Delay  72000)  ; 

Current  :=  Root  ; 

While  (Current  <>  Nil)  DO 
BEGIN 

ThisMission  :=  Current’ .Mission  ; 

HighTechLevel  :=  1  ; 

While  (Current  <>  Nil)  AND  (Current* .Mission  =  ThisMission) 
BEGIN 

IF  ((Current*. Status  =  ’PRODUCTION”)  OR 
(Current*. Status  =  ‘READY’)  OR 
(Current*. Status  =  ‘ACTIVE’)  OR 
(Current*. Status  =  ‘PARASITE’)  OR 
(Current*. Status  =  ‘SPARE’)  OR 
(Current* .Status  =  ‘DEAD’))  AND 
(Current* .TechLevel  >  HighTechLevel) 

TEEN  HighTechLevel  :?  Current* .TechLevel  ; 

Current  :=  Current* .Next  ; 

END  ;  (while  thismission) 

UpdateJ3uyable  (Root,  ThisMission,  HighTechLevel)  ; 

END  ;  (while  not  nil} 


END  ; 


OVERLAY  PROCEDURE  Advance  (Root  :  UnitPtr  ;  VAR  WorkUnit  :  Unit)  ; 
VAR 

ThisStatus  :  string 11  ; 

ReusableLV  :  boolean  ; 

BEGIN 


WITH  WorkUnit  DO 
BEGIN 

IF  (WorkUnit. Mission  =  ‘LAUNCHER’)  AND 
( (WorkUnit.ReuseField  =  ‘REUSEABLE’)  OR 


DO 


( WorkUn i t . ReuseF i e 1 d  =  ’RECYCLABLE')  OR 
(WorkUnit.ReuseField  =  ’R’)  OR  (WorkUnit.ReuseField  =  * C ' ) ) 
THEN  ReusableLV  :=  True 
ELSE  ReusableLV  :=  False  ; 

ThisStatus  :=  Status  ; 

IF  (Mission  <>  ‘LAUNCHER’)  OR  (ReusableLV)  THEN 
(expendables  different} 

BEGIN 

IF  (Mission  =  ’GROUND’)  OR  (Mission  =  ’PAD’)  THEN 
BEGIN 

IF  (ThisStatus  =  ’PRODUCTION’)  OR 
(ThisStatus  =  ’DEVELOPMENT') 

THEN  Status  :=  ’ACTIVE’  ; 

END  ;  (no  LAU  phase  for  ground  or  pads) 

IF  ReusableLV  THEN 
BEGIN 

IF  ThisStatus* =  ’FEASIBLE’  THEN  Status  :=  ’DEVELOPMENT’  ; 
IF  ThisStatus  =  ’DEVELOPMENT’  THEN 
BEGIN 

Status  :=  ’ACTIVE’  ; 

NumActive  :=  1  ; 

END  ; 

Update  : =  -1  ; 

END 

ELSE  (not  reusableLV) 

BEGIN 

IF  ThisStatus  =  ’FEASIBLE’ 

THEN  Check_If JJecond_Copy  (Root,  WorkUnit)  ; 

IF  ThisStatus  =  ’RESEARCH’ 

THEN  Status  :=  ’ DEVELOPMENT ’  ; 

IF  ThisStatus  =  ’DEVELOPMENT’ 

THEN  Status  :=  ’PRODUCTION’  ; 

Update  -A  ; 

END  (not  reusable) 

END  Emission  not  launcher  or  is  reusable}; 

ELSE;  (expendable  launchers} 

BEGIN 

NunAc.tive  :=  NumActive  +  ProdAetive  ; 

Productive  :=  NunProd  ; 

NuoProd  :=  DevProd  ; 

DevPr.od  :=  Hold  ; 

Hold  :  *  0 
END  ;  (launcher) 

END  ;  (With) 
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msm 


'END  ; 


PBOCEDUBE  Update_Sys terns  (Boot  :  UnitPtr)  ; 

VAB 

Current  :  UnitPtr  ; 

BEGIN 

Where  :=  Boot  ; 

Current  :=  Boot  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  Current*. Status  =  ’SPABE’  THEN 

Current* .LifeTime  :=  Current* .Li feTime  +  1  ; 

IF  Current*.Update  >  0 

THEN  Current* .Update  := -Current* .  Update.  -  1  ;; 

IF  Current* .Update  =  0  THEN  Advance  (Boot,.  Current*)  ; 
Current  :=  Current* .Next  ; 

Where-  ;=  Where ‘.Next  ; 

END  ; 

END  ; 


PBOCEDUBE  TIpgrade_Units  (Boot  :  UnitPtr)  ; 

BEGIN 
Border 1  ; 

Textbackground  Cl)  ; 

Center jLihe  (12,  ’  ’)  ; 

Center~Line  (12,  ’UPDATING  UNITS  PUBCHASE/UPGBADED  LAST  TUBN*)  ; 
Uelay  (2000):  : 

UpdateJSy stems  (Boot)  ; 

GetJTeehLevel  (Boot)  ; 

END  r,- 


i caUbd^at  year  start). 

PBOCEDUBE  Hpdate.Global^Variables  (Boot  :  UnitPtr)  ; 
VAB. 

Current  ;  UnitPtr  ; 

BEGIN 

Tsxtbackground  Ci) 


Year  :=  Year  +  1  ; 

Center  Line  (12,  *  ’)  ; 

Center  Line  (12,  'UPDATING  GLOBAL  VARIABLES’) 

GotoXY  (33,14)  ;  Write  (’FOR  YEAR  ’,  Year:5)  ; 

Delay  (2000)  ; 

Current  :=  Root  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  Current*. Mission  =  ’PAD’  THEN 

Current* .NumRemaining  :=  Current* .LaunchRate  ; 
Current  :=  Current* .Next  ; 

END  ; 

BUDGET  :=  XBUDGET  [Year]  ; 

Chsck_Failure  (Root)  ; 


END  ; 


{  main  program  } 

BEGIN 
ClrScr  ; 

Boot  :*  Nil  ;  Head  :=  Nil  ;  Quit  :«  False  ;  Found  :=  False 
MultipleLaunch  :=  False  ; 

Copy  :=  False  ;  NASAOX  :=  False  ; 

Where  :=  Nil  ;  Year  :=  1986  ; 

RemWeight  :=  0  LiftWeight  :=  0  ; 

Help  :=  False  ; 

Borderl  ;  Border 2  ; 

Textbackground  (1)  ; 

Window  (20,6,59,19)  ; 
clrser  ; 

Gotoxy  (18,2)  ;  WRite  (’ADAM’)  ; 

GotoXY  (9,4)  ;  Write1  (’Acquisition  Deployment’) 

GdtoXY  (12,5)  ;  Write  (’And  Manuevering’)  ; 

GotoXY  (13,7)  ;  Write  (’THE  SPACE  GAME’)  ; 

TextCOlor  (White)  ; 

GotoXY  (14,9)  ;  Write  (’Developed  By’)  ; 

GotoXY  (12,10)  ;  Write  C’CAET.  JEFF  HEIER’)  ; 

Gotoxy  (8,12)  ;  Write  (’Graduate  Space,  Operations’)  ; 

GotoXY  (4,13)  ;  WRite  (’Air  Force  Institute  of  Technology’)’ 
Delay  (6000)  ; 

Window  (1,1,80,25)  ; 

Clrser 

Draw_ World  ; 

Textbackground  (1)  ; 

Clrser  ; 

Help^Screen  (0)  ; 


Border  1'  ;  Textbackground  (1)  ; 

Center  Line  (12,  'Enter  ‘L*  to  load  the  database  ’)  ; 

Bead  (kbd.Ch)  ; 

IF  (Ch  =  #L* )  OB  (Ch  =  ’l’j  THEN  LoadList  (Boo.t)  ; 

Center  Line  (16,  'Enter  ‘H‘  to  activate  the  Help  Screens’)  ; 
Bead  (kbd.Ch)  ; 

IF  Ch  IN  t’H’.’h’l  THEN  Help  :=  True  ELSE  Help  :=  False  ; 

IF  Help  THEN  Help^Screen  (6)  ;  (game  explanation) 

BEPEAT 

Nandomize  ; 

Textbackground  ( 1 )  ; 

ClrScr  ; 

Border  1 

textbackground  (1)  ; 

GotoXY  (30,12)  ;  Write  (‘BEGINNING  YEAB  ’ (Year  +  1) :5)  ; 
Delay  (2000)  ; 

Update_Global_Variables  (Boot) 

Upgrade_Units  (Boot)  ;  (purchased  last  turn) 

Update_Units  (Boot)  (will  take  effect  next  turn) 

Ass i gn_Gr ound_Support  (Boot)  ; 

Assess.OMCosts  (Boot)  ; 

Match_Payloads_With_Launchers  (Boot)  ; 

Textbackground  (1)  ; 

ClrScr  *, 

Border 1  ; 

textbackground  (1)  ;; 

IF  Year  *  1996  THEN  Center  Line  (12*  ’GAME  OVEB’)  else 
Center  Line  (12,  ’DO  YOD  WISH  TO  CONTINUE  TO  NEXT  YEAB  ?  ’) 
Bead  (kbd.Ch)  ; 

IF  (Ch  =  *27)  AND  KeyPressed  THEN 
BEGIN 

Bead  (kbd.Ch) 

IF  Ch  •  *15  THEN  System  Level  Commands  (Boot)  ; 

E  ND  ; 

UNTIL  (Ch  =  ’N’)  OB  (Ch  =  ’n’)  OB  (Year  *  1996)  ; 

END. 


(Yes  is  used  on  all  yes/no  questions  to  the  user) 
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FUNCTION  Yes  :  boolean  ; 
begin 

Read  (kbd,Ch)  ; 

IE  Ch  In  f’Y’ ,’y’l  THIN  Yes  :-'True  Else  Yes  :=  False  ; 
END  ; 


(Continue  is  used  on  all  continue  questions  to  the  user) 

FUNCTION  Continue  :  boolean  ; 
begin 

Read  (kbd.Ch)  ; 

IF  Ch  IN  ['C\  ’c’]  THEN  Continue  :=  True  ELSE  Continue  :=  False  ; 
END  ; 


(CenterJLine  centers  the  line  on  the  screen) 

PROCEDURE  Center  Line  (Row  :  integer  ;  Line  :*  stringSO)  ; 
VAR 

■I,J  :  integer  ; 

BEGIN 

TextColor  (White)  ; 

I  : =  Length  (Line)  ; 

J  :=  Round  ((80-1)  /  2)  ; 

GotoXY  (J.Row)  ;  Write  (Line)  ; 

TextColor  (Yellow)  ; 

END  ; 

(Border!  and  Border2  draw  a  border  around  the  screen) 

OVERLAY  Procedure  Border 1  ; 
var  i  :  integer  ; 
begin 
clrscr  ; 

textbackground  (white)  ; 
for  i  :=  1  to  25  do 
begin 

gotoXY  (79 ,i)  ; 
write  (’  ‘)  ; 

end  ; 

for  i  1  to  25  do 
begin 

gotoxy  (1 ,i)  ; write  (’  ’)  ; 

end  ; 

gotoxy  (1,1)  ;  clreol  ; 
end  ; 

OVERLAY  Procedure  Border2  ; 

var  i  :  integer  ; 

begin: 

textbackground  (3)  ; 
for  I  : *  2  to  24  do 
begin 
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*  *  ***  r*, tA.fWi, ***,♦  W* .4  *V»I 


I,1,*! 


gotoxy  (3,i)  ;  write  (’  ’)  ; 

gotoxy  (77, i)5  ;  write  (’  ’)  ; 

end  ; 

for  i  :  =  3  to  78  do 
begin 

gotoxy  (1,2)  ;  write  (’  ’)  ; 
gotoxy  (i,24)  ;  write  ('  ’)  ; 
end  ; 
end  ; 


{ClearLines  clears  the  screen  between  the  line  numbers  passed  to  it) 
PROCEDURE  ClearLines  (First, Last  >:  integer)  ; 

VAR 

I  :  integer  ; 

BEGIN 

For  I  :=  First  TO  Last  DO 
BEGIN 

GotoXY  (1,1)  ; 

ClrEOL 

END 

END; 


(Getlnt  is  used  to  ensure  the  user  does  not  enter  a  character  for  an  ); 
(integer  value,  else  the  program  bombs) 

FUNCTION  Getlnt  (SST  ;  stringlO  ;  X,Y  :  Integer)  :  Integer  ; 

VAR 

R  ;  integer  ; 

Result  :  integer  ; 

BEGIN 

REPEAT 

GotoXY  (X,Y)  ;  WRite  (’  ’)  ; 

GotoXY  (X,Y)  ; 

Read  (SST)  ; 

Vai  (SST,  B,  Result)  ; 

IF  Result  =  0  THEN  Getlnt  :*  R 

ELSE 

BEGIN 

GotoXY  (X,Y)  ‘.  Write  (’Enter  #’)  ;  WRite  (Chr(7)>)  ; 

Delay  (2000) 

END  ; 

UNTIL  Result  =  0  ; 

END  ; 


(LoadList  loads  the  database  from  the  disk.  List  must  have  been  created) 
(within  a.  pascal.  environment  due  to  the  linked  list  structure) 


FBCSCEDUBE  LoadList  (VAB  Hoot  :  UnitPtr)  ; 


VAB 

WorkNane 

:  String [30] 

WorkFile 

:  UnitFile  ; 

Current 

:  UnitPtr  ; 

I 

:  integer  ; 

OK 

:  boolean  ; 

Quit 

:  boolean  ; 

BEGIN 

Quit  :=  False  ; 

BEPEAT 

TextBackground  (1)  ; 

ClrScr  ; 

Border!  ; 

TextBackground  (1)  ; 

Center  Line  (12,  'Please  enter  the  file  name  as  *.dat  ')  ; 

GotoXY  (35,14)  ; 

Bead  (WorkNane)  ; 

IF  Length  (WorkNane)  -  0  THEN  (  hit  <CB>  only  to  abort  load  } 

BEGIN 

ClearLines  (10,12)  ; 

Quit  :=  True 
END 
ELSE 
BEGIN 

Assign  (WorkFile:, WorkNane)  ; 

{«-)  Beset  (WorkFile)  ;  {«+) 

IF  IOBesult  <>  0  THEN  (  0  *  OK;  255  *  File  Not  Found  ) 

BEGIN 

Center_Line  (12,  'That  file  does  not  exist.  Check  Spelling')  ; 
OK  :=  False 
END 

ELSE  OK  : =  True 
END 

UNTIL  OK  OB  Quit  ; 

If  NOT  Quit  THEN 
BEGIN 

Current  : =  Boot  ; 

IF  Boot  *  Nil  THEN  {  if  list  is  currently  empty  ) 

BEGIN 

NEW  (Boot)  ;  {  load  first  unit  to  Boot*  ) 

Bead  (WorkFile, Boot*)  ; 

Current  :*  Boot  ;  Head  :*  Current 
END  {  if  list  is  not  empty,  find  the  end:  } 

ELSE  WILE  Current  <>  Nil  DO  Current  Current* .Next  ; 

IF:  Boot*. Next;  <>  Nil  THEN  {  if  file  contains  nore  than  1  record) 
BEPEAT 

New  (Current^. Next)  ;  {  read  and  units  to  list  ) 

Current  :*  Current*. Next  ;  (  until  a  unit's  next  field  ) 

Bead  (WorkFile, Current*)  (  cones  up  Nil  ) 

UNTIL  Current*. Next  «  Nil  ; 


d>  O  ' 


Close  (WorkFils) 
END 

END  ; 


(ShowUni.t  is  used  to  display  the  current  status:  of  a  unit’s  attributes) 
(Each  mission  "type jhas  its  own  fields) 

OVERLAY  PROCEDURE  ShowUnit  (VAR  WorkUnit  :  Unit  )  ; 

VAR 

I  :•  integer  ; 

Current  :  UhitPtr  ; 

Last  :  UnitPtr  ; 


BEGIN 

textbackground  (1) 
ClrScr  ; 

GotoXY  (1,1)  ; 


With  WorkUnit  DO 
BEGIN 

Writeln  (')>  Mission: 
Writein  (’>>  Name: 


'  ,  Mission) 
'  ,  Name) 


IF 


’LAUNCHER'  THEN 


Mission 
BEGIN 

Writeln  (’>>  Tail  Number 
Writeln  (’>>  Reusable  Type 
IF  (ReuseField  =  ’REUSABLE’)  OR  (ReuseField 
(ReuseField  =  ’R’)  OR  XReusdField  =  ’CM 
BEGIN 

Annual  Sorties  lef t  * 
System  Launches  Lett  ’ 
Launch/Refurbish  Cost  ’ 
Status  ’ 


TailNumber)  ; 

ReuseField)  ; 

*  ’RECYCLABLE’)  OR 
THEN; 


Writeln 
Writein 
Writeln 
Writein 
END 
ELSE 
BEGIN 
Writein 
WRiteln 
Writeln, 
Writeln 
WRiteln 
END  • 

(’» 
(■>;> 
(’>i 
c>> 
<’» 
c» 


(’» 

(’>> 

(’>> 

(’>> 


Sorties) 

RemUses) 

OMCost) 

Status) 


(’» 
( ’>> 

(j>> 

(•» 


Active 

Prod-Active 

Production 

Dev^Prod 

Development 


NumActive)  ; 
ProdActive)  ; 
NumProd); 
DevProd)  ; 
NumDev)  ; 


Writeln 
Writeln 
Writeln 
Writeln 
^Writeln 
Writein 
Writeln  (’» 
Writeln  (’>> 
Writeln  (’>> 


Relability 
R&D  Cost 
ACQ' Cost 


Mass 

Mass 

Mass 

Mass 

Mass 


to 

to 

to 

to 

to: 


VLEO 

LEO 

MOL, 

MEO 

GEO 


Updata 


Reliability:?:?) 
RDCost)  ; 
ACQCost)  ; 

VLEO: 5:0)  ; 

LEO: 5:0)  ; 

MOL: 5:6)  ; 

MEO: 5:0)  ; 

GEO; 5:0)  ; 
Update)  ; 
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^  -tvTrirrry 


'  ,  TechLevel)  ; 


Writeln  (’>>  Tech  Level 
END  ; 


IF  Mission  =  ’GROUND ’  THEN 
BEGIN 

Writeln  (’>>  TailNumber: 
-Writeln  (’>>  Type: 

Writeln  (’>>  LifeTime,: 
Writeln  (’,>>  Deployed: 
Writeln  (’’»  B&D  Cost: 

0  Writeln  (?»c  ACQ  Coat: 
Writeln,  U>>  Statue:  * 
Writeln  (’>>  O&M  Coat:: 
Writeln  (’>>  Supporting: 
Writeln  (’>>-. Tail  Number: 
Writeln  (’>>  Update 
/Writeln  (’>>  Tech  Level 


IF^Miasion  =  ’PAD’  THEN 
^BEGIN 

WRiteln  '(’>>  Tail Number: 

»  WRiteln  (’>>  Location: 

:  WRiteln  (.’>>  Deployed:: 

o  J  Writeln  (’>„>  Statue: 

•*  .»  Writeln  (’>>  Update: 

WRiteln  (’>>  BAD  Coat: 
WRiteln  (’>>  ACQ  Cos„t:  . 
iWiiiteln  *  (.’  >  >  O&M  Coat ; 
Writeln:  (’>>  Launches/' Year 
-  »  Writeln  (’>>  Launchea/Rem 
'  END  ;  \ 


,  Tail Number)  ; 

,  Kind)  ; 
LifeTime)  ; 
Deployed)  ; 

,  RDCost)  ; 

,  ACQCost)  ; 

,  Status)  ; 

,  OMCost)  ; 
i  SupportName)  ; 

SupportNumber) 
,  Update)  ; 

,  TechLevel)  ; 


,  Tail Number)  ; 

,  Location)  ; 

,  Deployed)  ; 

,  Status)  ; 

,  Update)  ; 

,  RDCost)  ; 

ACQCost)  ; 

,  OMCost)  ; 

,  LaunchRate)  ; 

,  NumRemainirig)  ; 


IF  (Mission, <>  ’LAUNCHER’/  = 
,  ?  AND  (Mission  O  ,’ GROUND  - ) 

BEGIN  -  "  * 

Wr,iteln  =(’>>  TailNumber: 
Writeln  (’>>  Maas: 

Writeln  (’>>  LifeTime: 

Writeln  (’>>  Deployed:: 
Writeln  (’>>  R&D  Cost:: 

Writeln  (' >>  ACQ  Cos t : 

Writeln  (*>>’ Status  : 

Writeln  (’>>  Orbil 
Write  In  (’>>  Inclination,: 
Writeln  (’>|  Ascending  Node: 
Writeln0  ( ’>>  Update ; 

Writeln  (’>>  Tech  Level : 
Writeln  (’>>  Controller: 
Writeln  (’>>  '  f> 

Writeln  (’>>  Processor: 
Writeln  (’>>  ’  i 

Writeln  (’>>  User: 

Writeln  (’>>  * 


AND  (Mission  <>  ’PAD’)  THEN 

’  ,  TailNumber)  ; 

’  ,  Mass: 5:0)  ; 

’  ,  LifeTime)  ; 

'  ,  Deployed)  ; 

’  ,  RDCost)  ; 

’  ,  ACQCost) 

’  ,  Status)  ; 

’  ,  Orbit)  \ 

'  ,  Inclination)  ; 

’ ,  AscendingNode)  ; 

’  i  Update)  ; 

’  ,  TechLevel)  ; 

'  ,  ControlName)  ; 

*  ,  ControlNumber)  ; 

,  ProcessorName)  ; 

'  ,  ProcessorNumber)  ; 

’  ,  User Name)  ; 

'  ,  User Number)  ; 


Writeln  ( ’  >,->  Add-On 
Writeln  (’>> 

Writeln  (’>>  AddrOn 
Writeln  (’>"> 


l5 

t 

2 

# 


Go.toXY 

Write 

Write 

Write1 

Write 

Write 

Write 

Write 

Write 

Write 

Write 

Write 

Write 

Write 

END  ; 


Oh 


Add-On 


(40,1) 
’>>  Add- 
’>> 

’>>  Add- 
’>> 

’>> 

’>> 

'» 

’>> 

’>> 

•» 

’>> 

’>> 

’» 


On 


Anti 

Low 

Med 

Hi 

15 

180 

#  of 


3 

#■ 

4 
# 

5 
# 

-jam  Data 
Anti -Jam  Com 
Anti-Jam  Com 
Anti-Jam  Com 
Day  Autonomy 
Day  Autonomy 
Manuvers 


,  AddOnNamel)  ; 
,  AddOnNuml)  ; 

,  AddOnName2)  ; 
,  Add0nNum2)  ; 


GotoXY 

GotoXY 

GotoXY 

GotoXY 


(40.2) 

(40.3) 

(40.4) 

(40.5) 


GotoXY  (40,6) 
GotoXY  (40,7) 


Add0nName3) 

Add0nNum3) 

Add0nName4) 

Add0nNum4)  , 

AddOnNameS) 

AddOnNuraS) 

AntiJamDataLink)  ;  GotoXY  (40,8)  ; 
LowAntiJamComLink)  ;  GotoXY  (40,9)  ; 
MedAntiJamComLink)  ;  GotoXY  (40,10) 
HighAntiJamComLink)  ;  GotoXY  .(40,11) 
Autonomyl5)  ;  GotoXY  (40,12)  ; 
AutonomylSO)  ;  GotoXY  (40,13)  ; 
Manuvers: 2:0)  ;  GotoXY  (40,14)  ; 


IF  Mission  =  ’COMM’  THEN 

Write  (’>>  Channels:  ’  ,  Channels: 6:0)  ; 

IF  Mission  =  'WEATHER’  THEN 
BEGIN 

Write  (’»  Downlink 
GotoXY (40 , 15) ; 

Write  (’>>  DayVideo 
GotoXY (40.,  16)  ; 

Write  (’>>  NightVideo 
GotoXY  (40,17)  ; 

Write  (’>>  Daylmage 
GotoXY  ,(40,18)  ;> 

Write  (’>>  Nightlmage 
GotoXY  (40,191  ; 

Write  (’>>  Temp 
GotoXY* (40,20)  ; 

Write  (’>>  Solar 
GotoXY  (40,21)  ; 

END  ; 

IF  Mission  =  ’NAY’  THEN 
BEGIN 

Write  (’>>  Accuracy  ’,  Accuracy)  ; 

GotoXY  (40,15)  ; 

Write  (’>>  Position  ’  ,  Position:5:2)  ; 

GotoXY  (40,16); 

Write  (’.;>>  Bedxindancy  ’  ,  Redundancy)  ; 

GotoXY  (40,17)  ; 

END  ; 

IE  Mission  =  ’IMINT’  THEN 


,  DownLink)  ; 

,  DayVideo)  ; 

,  NightVideo)  ; 
,  Daylnage)  ; 

,  Nightlmage) 

,  Temp)  ; 

,  Solar)  ; 


BEGIN 

Write  (’>>  DownLink 
GotoXY  (40,15)  ; 

Write  (’>>  DayVideo 
GotoXY  (40,16)  ; 

Write  (’>>  NightVideo 
GotoXY  (40,17)  ; 

Write  (’>>  Daylmage 
GotoXY  (40,18)  ; 

Write  (’>>>  Nightlroage 
GotoXY  (46,19)  ; 

END  ; 

IF  Mission  =  ’SIGINT-’  THEN 
BEGIN 

WRite  (’>>  Data  Link  ’  , 

GotoXY  (40,15)  ; 

Write  C>>  Signal  Identidy  ’  , 
GotoXY  (40,16)  ; 

END  ; 

IF  Mission  =  ’WARNING’  THEN 
BEGIN 

Write  (’>>  Aircraft 
GotoXY  (40,15),  ; 

Write  (’>>  I CBM 
GotoXY  (40,16)  ; 

Write  <’>>  SLBM 
GotoXY  (40,17)  ; 

Write  (’>>  Target 
GotoXY  (40,18)  ; 

Write  (’>>  Count 
GotoXY  (40,19)  ; 

END  ; 

IF  Mission  =  ’OFFENSE’  THEN: 

BEGIN 

WRite  (’>->  Affect  LEO  ’  , 
GotoXY  (40,15):  ; 

WRite  (’>>  Affect  MEO  ’  , 
GotoXY  (40,16)  ; 

Write  (’>>  Affect  GE0/HE0  ’  , 
GotoXY  (40,17)  ; 

WRite  (’>>  Ground  Targets.  ’  , 
GotoXY  (40,18)  ; 

Write  (’>>  AirCraft  ’  , 

GotoXY  (40,19)  ; 

Write  (’>>  Time  Urgent  ’  , 

GotoXY:  (40,20)  ; 

END  ; 

IF  Mission  =  ’DEFENSE'  THEN 
BEGIN 

Write  (’>>  Affect  Boost,  Phase< 


’  ,  DLmk)  ; 

’  ,  DVideo)  ; 

'  .,  NVideo)  ; 

’  ,  DImage)  ; 

'  ,  NImage)  ; 

DataLink)  ; 
Signal)  ; 

’  ,  Aircraft)  ; 
'  .  I CBM)  ; 

’  ,  SLBM) 

’  ,  Target)  ; 

■  ,  Count)  ; 

LowOrbist)  ; 
MedOrbit)  ; 
HighOrbit) 
GroundTarget) 
Planes)  ; 
TimeUrgent)  ; 


’  ,  Boost) 


GotoXY  (40,15)  ; 

Write  (’>>  Affect  MidCourse  Phase  MidCourse)  ; 
GotoXY  (40,16)  ; 

Write  (’>>  Affect  Reentry  Phase  ’  ,  Reentry)  ; 
GotoXY  (40,17)  ; 

Write  (’>>  Affect  Aircraft  ’  ,  AC)  ; 

GotoXY  (40,18)  ; 

Write  ('>>  Affect  Cruise  Missiles  ’, 
CruiseMissile)  ; 

GotoXY  (40,19)  ; 

END  ; 

ClearLines  (25,25)  ;  Center_Line  (25,  'Hit  any  key  to  continue')  ; 
read  (kbd,Ch); 

END  ; 

END  ; 


(Search  is  called  every  time  an  assignment  is  made.  It  sets  the) 

(global  variable  ‘Where’  which  points  to  the  desired  unit.  If  the) 

(unit  is  not  found,  a  message  is  flashed  to  the  user) 

PROCEDURE  Search  (VAR  Root  UnitPtr  ;  SearchName  :  stringlO  ; 

SearchNumber  :  integer  ;  Display  :  string5)  ; 

VAR 

Current  :  UnitPtr  ; 

Last  :  UnitPtr  ; 

Show  :  boolean  ; 

BEGIN 

Found  :  =  False  ; 

Current  :  =  Root  ; 

Where  :  =  Root  ; 

IF  Display  =  'YES'  THEN  Show  :=  True 
ELSE  Show  False  ; 

WHILE  (Current  <>  Nil)  AND  ( (Current* .Name  <>  SearchName) 

OR.  (Current* .TailNumber  <>  SearchNumber))  DO 

BEGIN 

Last  :=  Current  ; 

Where  :=  Where*. Next  ; 

Current  :=  Current* .Next  ; 

END  ; 

IF  (Current* .Name  =  SearchName)  AND  (Current* .TailNumber  -  SearchNumber) 
THEN  Found  :=  True  ; 

IF  Found  AND  Show  THEN  ShowUnit  (Current*)  ; 

IF  NOT  Found  Then 
BEGIN 

ClearLines  (23,25)  ; 

GotoXY  (28,23)  ;  Write  (SearchName: 10,  SearchNumber: 3,  ‘not  found’)  ; 
Textcolor  (White)  ; 

Center ^Line  (25,  'Kit  any  key  to  continue')  ;  Read  (kbd.Ch)  ; 
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TextColor  (Yeilow)  ; 
END  ; 

END  ; 


{Add^Survivability  modifies  the  survivability  fields  of  units.} 

{It  checks  the  current  acquisition  status  of  the  unit  and  determines) 
{if  it  can  be  updated.  Only  units  in  feasible,  research,  and  } 
{development  stage  can  be  modifed.  Units  in  development  stage  must  } 
{either  pay  50%  more  for  mods  or  delay  an  extra  2  years  in  acq.  cycle) 

OVERLAY  PROCEDURE  Add_Survivability  (VAR  Root  UnitPtr)  ; 

VAR 

Quit  :  boolean  ; 

Amount  :  real  ;  Diff  :  real  ; 

FuelLoads  :  integer  ; 

WorkUnit  :  Unit  ; 

OriginalMass  :  real  ; 

Gotl,  Got2,  Got3,  Got4,  Got5,  Got6,  Got7  :  string  [2]  ; 

Autonomy 15Mass  :  integer  ; 

Autonomy lBOMass  :  integer  ; 

FuelMass  :  integer  ; 

Modify  :  boolean  ; 

LateCost  :  real  ; 

BEGIN 

Gotl  ;  Got2  :«  ”  ;  Got3  ;  Got4  ; 

Got5  ;  Got6  ;  Got7  ; 

Quit  :=  False  ; 

LateCost-  :=  1.0  ; 

Modify  :=  True 
TextBackground  (1)  ; 

ClrScr  ; 

Border!  ; 

TextBackground  (1)  ; 

CenterJLine  (4,  ’ADD  SURVIVABILITY  FEATURES’)  ; 

Cer.ter_Lin®  (12,  ’Enter  name  of  unit  to  be  made  survivable  ’)  ; 
Center_Line  (14,  '  Tail  Number  ’)  ; 

GotoXY  (65,12)  Read  (SearchName)  ; 

SearchNuraber  :=  Ge.tlnt  (StringNumber ,  65,14)  ; 

Search  (Root,  Searc-hN&me ,  SearchNumber,  ’YES’)  ; 

IF  Found  THEN 
begin 

IF  (Where*. Anti JamDataLink  <>  ’X’)  AND  {.(Where '.Status  =  ’RESEARCH’)  OR 
(Where'. Status  *  ’DEVELOPMENT')  AND  (Where' .Status  =  ’FEASIBLE’)) 
THEN  {can  upgrade) 

BEGIN 

IF  Where '.Status  =  ’DEVELOPMENT’  THEN 
BEGIN 

CLearLines  (22,25)  ; 


vf"*  ^ . £~;«  jpfe. 


Center_Line  (22, 

'Modifying  satellite  in  DEVELOPMENT  Stage  is  costly’) 
Center_Line  (23,  ’Enter  *1"  for  a  two  year  program  delay  ’) 

Center_Line  (24,  ’Enter  ’2"  for  a  50%  cost  overrun  on  mods’) 

Center.Line  (25,  ’Enter  *Q*  to  not  modify  the  satellite  ’) 

Bead  (kbd.Ch)  ; 

CASE  Ch  OF 


1 


IF  Where* .Update  *  -1  THEN  Where* .Update  :*  99 
ELSE  Where* .Update  :  =  Where* .Update  +  2  ; 
(if  not  being  updated,  flag  for  check  budget) 
(in  check  budget,  update=99  — >  update  &  4) 


’2’ 

’Q’.’q’ 


LateCost  :=  1.5  ; 
Modify  :  =  False  ; 


END  ; 
END  ; 


IF  Modify  THEN 
BEGIN 


IF  Where*. Anti JamDataLink  =  *Y’ 
IF  Where* .LowAntiJamComLink  *  ’Y’ 
IF  Where* . MedAntiJamComLink  *  ‘Y* 
IF  Where *. Hi ghAntiJamComLink  «  ’Y’ 
IF  Where* .Autonomy 15  =  ’Y’ 
IF  Where* .Autonomy 180  =  ’Y’ 
IF  Where* .Manuvers  >  0 


THEN  Gotl 
THEN  Got2  :=  ’  +’ 
THEN  Got3  :=  ’  +’ 
THEN  Got4  :*  ’  +’ 
THEN  Got5  :*  ’  +’ 
THEN  Got6  :=  ’  ♦’ 
THEN  Got7  :=  ’  ♦’ 


Autonomy 15Mass  :=  Round  (Where*. Mass  *  0.2)  ; 
Autonomy lBOMass  :*  Round  (Where '.Mass  »  0.3)  ; 
Fuel Mass  :  =  Round  (Where*. Mass  «  0.3)  ; 


REPEAT 
ClrScr  ; 

TextBackground  (1)  ; 

Center_Line  (1,  ’ADD  SURVIVABILITY  FEATURES’)  ; 

TextColor  (Yellow)  ; 

Center_Line  (2,  * *♦*  Indicates  unit  already  has  that  method’)  ; 

GotoXY  (10,4)  ;  Write  (’SATELLITE  ’,  Where* .Name: 10,  Where* .TailNumber : 3)  ; 
GotoXY  (40,4)  ;  Write  (’MASS:  ’,  Where* .Mass: 6:0)  ; 

GotoXY  (80,4)  ;  Write  (’BUDGET:  BUDGET  )  ; 

TextColor  (White)  ; 

GotoXY  (20,6)  ;  Write  (’Method’)  ;  GotoXY  (68,6)  ;  Write  (’Cost’)  ; 

GotoXY  (19,7)  ;  Write  (’ . ’)  ;  GotoXY  (67,7)  ;  Write  (’ . ’)  ; 

TextColor  (Yellow)  ; 

GotoXY  (3,9)  ;  Write  (’[1]  Anti- jam/nuclear  protection  on’)  ; 

Write  (’data/contrcl  links’)  ; 

Gotoxy  (60,9)  ;  Write  (Gotl)  ; 

GotoXY  (69,9)  ;  Write  (Round  (0.3  «  Where* .RDCost) )  ; 

GotoXY  (3,11)  ;  Write  (’[2]  Low  anti-jam/nuclear  protection’)  ; 

WRite  Con  COM  links’)  ; 
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GotoXY  (60,11)  ;  Write  (Got2)  ; 

GotoXY  (69,11)  ;  Write  (Round  (0,1  *  Where* .RDCost) )  ; 

GotoXY  (3,13)  ;  Write  ('[3]  Medium  anti- jam/nuclear  protection’)  ; 

Write  Con  COM  links’)  ; 

GotoXY  (60,13)  ;  Write  (Gct3)  ; 

GotoXY  (69,13)  ;  Write  (Round  (0.2  *  Where* . RDCost) )  ; 

GotoXY  (3,15)  ;  Write  ('[4]  High  anti- jam/nuclear  protection  on’)  ; 

Write  (’COM  links’)  ; 

GotoXY  (60,15)  ;  WRite  (Got4)  ; 

GotoXY  (69,15)  ;  Write  (Round  (0.3  *  Where* .RDCost) )  ; 

GotoXY  (3,17)  ;  Write  CC5]  Laser/nuclear  hardening  and  15  day  autonomy’) 
GotoXY  (60,17)  ;  WRite  (Got5)  ; 

GotoXY  (69,17)  ;  Write  (Round  (0.3  *  Where* .ACQCost) )  ; 

GotoXY  (3,19)  ;  Write  (’[6]  Laser/nuclear  hardening  and  180  day  autonomy') 
GotoXY  (60,19)  ;  WRite  (Got8)  ; 

GotoXY  (69,19)  ;  Write  (Round  (2.0  *  Where* . ACQCost) )  ; 

GotoXY  (3,21)  ;  Write  ('[7]  Satellite  manuverability  (cost/maneuver)’)  ; 
GotoXY  (60,21)  ;  WRite  (Got7)  ; 

GotoXY  (69,21)  ;  Write  (Round  (0.3  *  Where* .ACQCost) )  ; 

Center_Line  (24,  ’Enter  1-7  or  *Q'  to  quit  ')  ; 

Read  (kbd.Ch)  ; 

OriginalMass  : =  Where*. Mass  ; 

CASE  Ch  OF 

T  :  BEGIN 

Amount  :  =  (Where* .RDCost  div  2)  •  0.3  «  LateCost  ; 

IF  Where*. Anti JamDataLink  =  ’Y*  THEN 
BEGIN 

Where* .Anti JamDataLink  :  =  ’N’  ; 

BUDGET  : =  BUDGET  *  Round  (Amount)  ; 

Gotl  :=  '  ’  ; 

END 

ELSE 

BEGIN 

IF  (BUDGET  -  Amount)  >=  0  THEN 
BEGIN 

Where* .Anti JamDataLink  :  =  *Y‘  ;  Gotl  :=  ’  ♦  '  ; 
BUDGET  BUDGET  -  Round  (Amount)  ; 

END 

ELSE  IF  (BUDGET  -  Amount)  <  0  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center  Line  (24, 

’CANT  AFFORD  IT  LOOK  AT  BUDGET  *); 
Center_Line  (25,  'hit  any  key  to  continue')  ; 
Read  (kbd.Ch)  ; 

END  ; 

END  ;  (doesnt  allready  have) 

END  ; 
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:  BEGIN 

Amount  :=  (Where* .RDCost  div  2)  «  0.1  «  LateCost 
IF  Where* .LowAnti JamComLink  =  *Y’  THEN 
BEGIN 

Where* .LowAnti JamComLink  :  =  ’N’  ; 

BUDGET  :=  BUDGET  +  Round  (Amount)  ; 

Got2  :=  1  ’  ; 

END 

ELSE 

BEGIN 

IF  (BUDGET  -  Amount)  >=  0  THEN 
BEGIN 

Where* .LowAnti JamComLink  :=  ’Y’  ; 

Got2 

BUDGET  :=  BUDGET  -  Round  (Amount)  ; 

END 

ELSE  IF  (BUDGET  -  Amount)  <  0  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24, 

'cant  afford  it  look  at  budget')  ; 

Center  Line  (25,  'hit  any  key  to  continue') 
Read  (kbd.Ch)  ; 

END  ; 

END  ;  {doesnt  allready  have) 

END  ; 

:  BEGIN 

Amount  :  =  (Where* .RDCost  div  2)  «  0.2  «  LateCost 
IF  Where ‘.MedAnti JamComLink  -  'Y'  THEN 
BEGIN 

Where ‘.MedAnti JamComLink  :=  'N'  ; 

BUDGET  : *  BUDGET  ♦  Round  (Amount)  ; 

Got3  ; 

END 

ELSE 

BEGIN 

IF  (BUDGET  -  Amount)  >=  0  THEN 
BEGIN 

Where* .MedAnti JamComLink  *Y'  ; 

Got3  :=  ’  ♦'  ; 

BUDGET  BUDGET  -  Round  (Amount)  ; 

END 

ELSE  IF  (BUDGET  -  Amount)  <  0  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24, 

'cant  afford  it  look  at  budget’)  ; 
Center_Line  (25,  'hit  any  key  to  continue’) 
Read  (kbd.Ch)  ; 


END  ;  (doesnt  already  have) 

END  ; 

'4'  :  BEGIN 

Amount  :=  (Where* .BDCost  div  2)  *  0.3  *  LateCost  ; 
IF  Where* .HighAntiJamComLink  =  *Y*  THEN 
BEGIN 

Where* .HighAntiJamComLink  :*  ’N’  ; 

BUDGET  : =  BUDGET  +  Bound  (Amount)  ; 

Got4  :=  *  '  ; 

END 

ELSE 

BEGIN 

IF  (BUDGET  -  Amount)  >=  0  THEN 
BEGIN 

Where* .HighAntiJamComLink  :=  ’Y’  ; 

Got4 

BUDGET  :=  BUDGET  -  Bound  (Amount)  ; 

END 

ELSE  IF  (BUDGET  -  Amount)  <  0  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24, 

’cant  afford  it  look  at  budget’)  ; 

Center  Line  (25,  ’hit  any  key  to  continue’)  ; 
END  ; 

END  ;  (doesnt  already  have) 

END  ; 

’5’  :  BEGIN 

Amount  :=  Where* .ACQC os t  *  0.3  *  LateCost  ; 

IF  Where* .Autonomy 15  *  ’ Y’  THEN 
BEGIN 

Where* .Autonomy 15  :=  ’N’  ; 

BUDGET  :=  BUDGET  +  Bound  (Amount)  ; 

Got5  ; 

Where*. Mass  :=  Where*. Mass  -  Autonomy 15Mass  ; 
END 
ELSE 
BEGIN 

IF  (BUDGET  -  Amount)  >=  0  THEN 
BEGIN 

ClearLines  (23,25)  ;  GotoXY  (24,23)  ; 

TextColor  (White)  ; 

Write  (’Adding  15  Day  Automony  increases  sat’) 
Write  ( ’mass  to  ’ ,  * 

(Where*. Mass  *  Autonomy 15Mass) : 5 : 0 )  ; 
Center  Line  (25,  ’Is  this  OK  (Y/N)  ?  ’)  ; 

IF  Yes  THEN 
BEGIN 

Where* .Autonomy  15  :=  ’Y’  ;  Got5 
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BUDGET  :=  BUDGET  -  Round  (Amount)  ; 

Where*. Mass  : =  Where*. Mass  + 

Autonomy 15Mass  ; 

END  ;  (yes) 

END 

ELSE  IF  (BUDGET  -  Amount)  <  0  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24, 

'cant  afford  it  look  at  budget1)  ; 

Center  Line  (25,  'hit  any  key  to  continue')  ; 
Read  (icbd.Ch)  ; 

END  ; 

END  ;  (doesnt  already  have) 

END  ; 

'6'  :  BEGIN 

Amount  :  =  Where* .ACQCost  *  2  *  LateCost  ; 

IF  Where  * . Autonomy 180  =  'Y*  THEN 
BEGIN 

Where* .Autonomy 180  :=  'N'  ; 

BUDGET  :=  BUDGET  +  Round  (Amount)  ; 

Goto  :=  '  '  ; 

Where*. Mass  : =  Where*. Mass  *  Autonomy lBOMass  ; 
END 
ELSE 
BEGIN 

IF  (BUDGET  -  Amount)  >=  0  THEN 
BEGIN 

ClearLines  (23,25)  ;  GotoXY  (21,23)  ; 

TextColor  (White)  ; 

Write  ('Adding  180  day  Autonomy  increases  mass’)  ; 
WRite  (’to  ’ , 

(Where ’.Mass  ♦  Autonomy lBOMass) : 5 : 0)  ; 
TextColor  (Yellow)  ; 

Center  Line  (25,  'Is  this  OK  (Y/N)  ?  ’)  ; 

IF  Yes  THEN 
BEGIN 

Where* .Autonomy  180  :=  ’Y’  ;  Got6 
BUDGET  :*  BUDGET  -  Round  (Amount)  ; 

Where*. Mass  :  =  Where*. Mass  +  Autonomy lBOMass  ; 
END  ;  (yes) 

END 


ELSE  IF  (BUDGET  -  Amount)  <  0  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24, 

'cant  afford  it  look  at  budget’)  ; 

Center  Line  (25,  ’hit  any  key  to  continue’)  ; 
Read  (kbd.Ch)  ; 

END  ; 


END  ;  (doesnt  already  have) 

END  ; 

’V  :  BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (24,' How  many  manuvera  do  you  want?  ’) 
FuelLoads  :=  Getlnt  (StringNumber ,  58,24)  ; 

IF  FuelLoads  <>  Where* .Manuvers  THEN 
BEGIN 

IF  FuelLoads  <  Where* .Manuvers  THEN 
BEGIN  (removing  fuel) 

Diff  :=  Where* .Manuvers  -  FuelLoads  ; 

Amount  :=  Where* .ACQCost  » 

Diff  *  0.3  «  LateCost  ; 

Where*. Mass  : =  Where*. Mass  -  FuelMass  »  Diff 
BUDGET  :=  BUDGET  +  Bound  (Amount)  ; 

'Where* .Manuvers  :=  FuelLoads  ; 

IF  Where* .Manuvers  =  0  THEN  Got7  : =  ’  ’  ; 

END 

ELSE  (adding  fuel) 

BEGIN 

Diff  :=  FuelLoads  -  Where* .Manuvers  ; 

Amount  :  =  Where* . ACQCost  * 

Diff  *  0.3  •  LateCost  ; 

IF  (BUDGET  -  Amount)  >=  0  THEN 
BEGIN 

ClearLines  (23,25)  ;  GotoXY  (23,23)  ; 

Write  (’adding  this  fuel  increases  mass  to 

(Where*. Mass  *  FuelMass  ft  Diff):5:0)  ; 
Center  Line  (25,  ’Is  this  OK  (Y/N)  ?  ’)  ; 

IF  Yes  THEN 
BEGIN 

Where*. Mass  : =  Where*. Mass  +  FuelMass  «  Diff 
Where* .Manuvers  :  =  FuelLoads  ; 

BUDGET  :  =  BUDGET  -  Round  (Amount)  ; 

Got7 

END  ;  (yes) 

END 

ELSE  IF  (BUDGET  -  Amount)  <  0  THEN 
BEGIN 

ClearLines  (24,25)  ; 

Center_Line  (24, 

'cant  afford  it  look  at  budget’)  ; 
Center_Line  (25,  ’hit  any  key  to  continue’)  ; 
Read  (kbd,Ch)  ; 

END  ; 

END  ;  (off  loading  fuel) 

END  ;  (not  changing  fuel  loads) 

END  ; 

’ Q ’  ,  * q '  :  Quit  :=  True  ; 
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END  ;  {case} 


UNTIL  Quit  ; 

END  ;  {modify  unit) 

END  {unit  can  be  modified} 

ELSE 

BEGIN  {Where* .Anti JamDataLink  =  'X'} 

ClearLines  (24,25)  ;  GotoXY  (25,24)  ; 

Write  (SearchName,  '  Cannot  be  made  survivable')  ; 

Center_Line  (25,  'Hit  any  key  to  continue’)  ;  Read  (kbd.Ch)  ; 

END  ;  {Unit  cant  be  modified) 

END  ;  (if  found) 

END  ; 

(Help.Screen  is  used  to  help  the  players  understand  the  different) 
{procedures  and  the  necessary  input  to  them.  Each  procedure  has  a) 
(different  number  associated  with  it.  This  number  is  sent  to  Help_Screen) 
{and  that  determines  which  block  is  sent  to  the  screen.) 

OVERLAY  PROCEDURE  Help_Screen  (Screen  :  Integer)  ; 

BEGIN 

TextBackGround  (1)  ; 

ClrScr  ; 

Window  (13,2,75,24)  ;  ClrScr  ; 

CASE  Screen  OF 

0  :  BEGIN 

GotoXY  (23,1)  ;  TextColor  (White)  ; 

Write  (’WELCOME  TO  ADAM’)  ; 

GotoXY  (1,3)  ;  TextColor  (Yellow)  ; 

WRiteln  (’ADAM  was  designed  for  use  in  the  Space  Series  Course  at  the’); 
WRiteln  (’AWC  and  ACSC.  It  models  how  space  assets  are  acquired,  ’)  ; 
WRiteln  ('deployed,  and  manuevered  in  response  to  ground  requirements.'); 
Writeln  ('The  different  missions  modeled  in  the  game  include:’)  ; 

WRiteln  (’Communication,  Navigation,  Weather,  Reconnaissance,')  ; 

WRiteln  (’Surveillance  (Attack  Warning),  Launchers,  Launch  Pads,’)  ; 
Writeln  (’and  Gr  md-Support  Elements.  The  game  models  two  types’)  ; 
Writeln  ('of  Re-  -aissance:  ELINT  (Electronic  Intelligence)  and’)  ; 
WRiteln  CSIGINT  v^ignal  Intelligence).  The  objective  of  ADAM  is  to’)  ; 
WRiteln  (’design  a  space  force  which  meets  as  many  requirements  as')  ; 
WRiteln  ('possible  while  operating  within  a  limited  budget.  The’)  ; 
Writeln  ('game  begins  with  the  current  (1987)  US  space  force  and’)  ; 
WRiteln  (’continues  through  10  turns  (each  turn  is  one  year).’)  ; 

WRiteln  {'The  database  may  be  modified  if  specific  learning  ’)  ; 

Writeln  (’objectives  are  to  be  taught.  Reference  the? ADAM’)  ; 

WRiteln  (’Users  Guide  for  directions  in  developing  a  new  database. ’)  ; 
Writeln  ('ADAM  used  the  Space  Resource  Allocation  Exercise  (SRAE)’)  ; 
WRiteln  ('designed  at  ACSC  by  Major  Bruce  Thieman  as  a  baseline.')  ; 
GotoXY  (.16,23)  ;  TextColor  (white)  ; 

WRite  (’Hit  any  key  to  begin  the  game’)  ;  Read  (kbd,Ch)  ; 

TextColor  (yellow)  ; 
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1  :  BEGIN  (GAT  ACB  Screen) 

Gotoxy  (9,1)  ;  TextCOlor  (white)  ; 

Write  ( ’ SATELLITE/REUSABLE  LAUNCHER  ACB  HELP  SCREEN’)  ; 

TextColor  (YEllOw)  ; 

GotoXY  (1,3)  ; 

Writeln  ('Enter  a  *1*  from  the  Acquisition  Phase  Main  Menu  to  ’)  ; 

WRiteln  (’access  the  Satellite/Reusable  Launcher  ACB  Screen.’)  ; 

Writeln  (’The  ACB  Screen  lists  all  the  satellites,  support  elements,’)  ; 
Writeln  ('and  reusable/recyclable  launcher  units  currently  in  the’)  ; 

Writeln  ('acquisition  pipeline.  The  units  are  listed  by  Name  and’)  ; 

wRiteln  ('Tail  Number.  The  status  headings  on  the  screen’)  ; 

WRiteln  (’(FEASIBLE,  RESEARCH,  DEVELOPMENT,  and  PRODUCTION)’)  ; 

WRiteln  (’roughly  correspond  to  the  DOD  Milestones  0,1, 2, and  3.')  ; 
WRiteln  (’To  update  a  unit,  enter  its  name  and  tail  number  as  they')  ; 

Writeln  (’appear  on  the  screen.  All  units  in  the  database  are  in’)  ; 

Writeln  (’capital  letters;  so,  put  the  *Caps  Lock*  key  on  !’)  ; 

Writeln  (’The  screen  will  show  the  current  status  of  the  units’)  ; 

WRiteln  (’attributes  (mass,  when  deployed  etc),  and  will  then  give’)  ; 
WRiteln  (’the  update  cost.  Enter  *Y*  if  you  want  the  unit  to  begin’)  ; 
WRiteln  (’the  next  stage  of  the  acquisition  cycle.  Each  update  takes'); 
WRiteln  ('two  years  to  complete.  An  asterik  is  placed  next  to  the’)  ; 
Writeln  ('entry,  indicating  the  unit  is  being  updated.  To  inject  a')  ; 
Writeln  ('copy  of  a  satellite  into  the  acqusition  pipeline,  enter  the'); 
Writeln  (’satellite  name  and  a  tail  number  of  *0*.  The  program  will’)  ; 
WRiteln  ('generate  a  copy  of  the  unit  and  put  it  in  the  research  phase’); 
GotoXY  (19,23)  ;  TextColor  (white)  ; 

Write  Chit  any  key  to  continue’)  ;  Read  (kbd.Ch)  ; 

ClrScr  ; 

GotoXY  (9,1)  ;  Textcolor  (White)  ; 

WRite  C SATELLITE/REUSABLE  LAUNCHER  ACB  HELP  8CREEN’)  ; 

GotoXY  (1,3)  ;  TextColor  (Yellow)  ; 

WRiteln  (’generate  a  copy  of  the  unit  and  put  it  in  the  research  phase.’) 
WRiteln  ('A  unit  is  considered  finished  with  the  phase  its  listed  under ?) 
Writeln  ('For  example,  DSCS  II  *  2  is  listed  in  the  Development  Phase. ’ ) 
WRiteln  ('This  means  the  unit  has  completed  its  development,  and  is  ’)  ; 
WRiteln  (’waiting  for  authority  to  proceed  onto  the  Production  Phase.’)  ; 
WRiteln  ('The  Screen  displays  the  budget  remaining  in  the  current  year .’ ) 
WRiteln  (’The  program  will  not  allow  you  to  spend  more  than  you  have.')  ; 
Writeln  (’A  word  of  caution  M  Do  not  spend  your  entire  budget  in  the')  ; 
WRiteln  ('Acquisition  Phase,  It  costs  money  to  refurbish  and  re-launch’); 
Writeln  (’the  reusable  launchers  (ie.  Shuttle)’)  ; 

GotoXY  (1,23)  ;  textColor  (White)  ; 

Write  ('Hit  any  key  to  continue  to  the  Satellite/Reusable  ACB  Screen’)  ; 
Read  (kbd.Ch)  ; 

ENd  ; 

2  :  Begin 

GotoXY  (15,1)  ;  TextColor  (White)  ; 

Writeln  (’EXPENDABLE  LAUNCHER  ACB  SCREEN’)  ; 

TextColor  (Yellow)  ;  GotoXY  (1,3)  ; 


=*£  «$ 


Writeln  (’Enter  a  "2"  from  Acquisition  Phase  Main  Menu  to  access’)  ; 
Writeln  ('the  Expendable  Launcher  ACB  Screen.  An  Expendable  Launcher’)  ; 
Writeln  (’ (DELTA, ATLAS, etc) can  only  be  used  once. This  screen  displays')  ; 
WRiteln  Call  the  expendable  laucnhers  in  the  acqusition  pipeline. ’ )  ; 
Writeln  ('The  necessary  technology  has  already  been  developed  for')  ; 
WRiteln  ('the  launcher  units  in  the  game;  therefore,  they  skip  the’)  ; 
Writeln  (’Feasible  and  Research  Phases  of  the  Acquisition  Cycle.’)  ; 
Writeln  (’The  screen  displays  the  name  and  number  of  all  the  ’)  ; 

WRiteln  (’expendable  lauchers  currently  in  the  pipeline..  It  also’)  ; 
Writeln  (’shows  the  number  available  for  launch.  ’)  ; 

WRiteln  (’Each  update  takes  two  years  to  complete.  The  Transition’)  ; 
WRiteln  (’Columns  were  added  to  help  the  player  track  the  launchers’)  ; 
Writeln  (’thru  the  acqisition  cycle.  The  Development  column  is  the’)  ; 
Writeln  (’only  acquisition  phase  the  player  may  modify.  The  computer’)  ; 
Writeln  (’automatically  updates  the  other  columns  at  the  beginning  of’)  ; 
WRiteln  (’each  year.  To  update  the  Development  column,  enter  the  ’)  ; 
WRiteln  (’launcher  name.  The  computer  will  then  ask  how  many  of  ’)  ; 
WRiteln  (’these  missile  types  you  want  to  update.  ’)  ; 

GotoXY  (2,23)  ;  TextColor  (white)  ; 

Write  ('Hit  any  key  to  continue  to  Expendable  Launcher  ACB  Screen’)  ; 

Read  (kbd,Ch)  ;  TextColor  (yellow)  ; 

END  ; 


3  :  BEGIN 

GotoXY  (10,1)  ;  TextColor  (White)  ; 

Write  (’Adding  Survivability  Features  Help  Screen’)  ; 

TextColor  (Yellow)  ;  GotoXY  (1,2)  ; 

Writeln  ('Enter  a  '3*  from  the  Acquisition  Phase  Main  Menu  to  access’)  ; 
Writeln  (’the  Add  Survivability  Features  Screen.  These  features  are’)  ; 
Writeln  (’modifications  to  the  satellite  to  enable  it  operate  better’)  ; 
Writeln  (’in  a  hostile  environment. There  are  seven  different  features')  ; 
WRiteln  ('Only  satellites  in  the  Feasible,  Research,  or  Development')  ; 
WRiteln  (’stages  can  be  modified.  Modifying  Satellites  in  the’)  ; 

Writeln  ('Development  stage  are  penalized  due  to  the  late  requirements’); 
Writeln  (’They  have  a  choice  of  a  50  X  overrun  on  the  mods  or  delaying'); 
Writeln  (’the  acquisition  cycle  of  that  unit  by  two  years;’)  ; 

WRiteln  (’The  cost  of  each  feature  is  a  function  of  the  satellite  type’); 
Writeln  ('To  incorporate  a  particular  feature  into  the  satellite,  ’)  ; 
Writeln  ('enter  the  corresponding  number.  Features. *5 ,6, land  7  increase’); 
Writeln  (’the  weight  of  the  satellite.  If  one  of  these  features  is  ’)  ; 
Writeln  ('selected,  the  program  will  display  the  modified  mass  and  ask’); 
WRiteln  (’for  confirmation.  If  you  change  your  mind  about  adding  a  ’)  ; 
Writeln  (’feature,  enter  the  number  again  and  it  will  be- removed. * )  ; 
Writeln  (’The  manuever  feature  represent  the  number  of  manuevers’)  ; 
Writeln  (’the  satellite  will  be  able  to  perform  once  its  been  launched. ’) ; 
Writeln  (’The  program  will  ask  how  many  manuevers  you  want.  You  may  ')  ; 
Writeln  ('off-load  fuel  by  entering  a  manuever  number  less  than')  ; 

Writeln  (’currently  on  board.  Watch  the  satellite  mass  closely  I!!’)  ; 
GotoXY  (3,23)  ;  TextColor  (white)  ; 

Write  (’Hit  any  key  to  continue  to  the  Add  Suvivability  Screen’)  ; 

Read  (kbd.Ch)  ;  TextColor  (Yellow)  ; 

END  ; 
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4  :  BEGIN 

GotoXY  (15,1)  ;  TextColor  (white)  ; 

Write  (’Composite  Satellite  Help  Screen’)  ; 

GotoXy  (1,3)  ;  textColor  (YEllow)  ; 

Writeln  (’A  Composite  Satellite  is  a  system  which  has  a  piggyback  ’)  ; 
Writeln  (’system  added  on  which  performs  its  own  mission.  These’)  ; 
Writeln  (’add-on  systems  add  50  %  of  their  mass  to  the  overall  system’)  ; 
Writeln  (’mass.  There  is  a  maximum  of  5  add-on  systems  on  a  satllite.’); 
Writeln  (’The  screen  displays  a  running  total  of  the  system  mass  and’)  ; 
Writeln  (’the  names  of  add-on  systems.  Once  a  system  has  been  added  on’); 
Writeln  (’it  cannot  be  taken  off.  Do  not  design  a  Composite  Satellite'); 
Writeln  (’too  heavy  to  launch.’)  ; 

GotoXY  (3,23)  ;  TextColor  (white)  ; 

Write  (’Hit  any  key  to  continue  to  create  a  Composite  Satellite’)  ; 

Read  (kbd.Cn)  ;  TextColor  (Yellow)  ; 

END  ; 

5  :  BEGIN 

GotoXY  (16,1)  ;  TextColor  (White)  ; 

Write  (’Launch  Procedure  Help  Screen’)  ; 

GotoXY  (1,3)  ;  textColor  (yellow)  ; 

Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
Writeln 
writeln 
Writeln 
Writeln 
Writeln 
Writeln 

GotoXy  < 19 j 23)  ;  TextColor  (White)  ; 

Write  (’Hit  any  key  to  continue’)  ; 

Read  (kbd.Ch)  ; 

ClrScr  ; 

GotoXY  (16, i)  ; 

Write  (’Launch  Procedure  Help  Screen’)  ;  textColor  (Yellow)  ; 

GotoXY  (1,3)  ; 

Writeln  (’If  launched  ok,  the  satellites  must  be  successfully  deplyed’)  ; 
Writeln  ('There  is  a  set  97  X  chance  of  a  successful  deployment  for  ’)  ; 
Writeln  (’each  payload  on  board.  If  the  payload  fails  to  deploy,  it’)  ; 
Writeln  (‘is  destroyed.  If  this  happens,  the  launcher  and  other’)  ; 
Writeln  (’possible  payloads  are  unnaffected.  ’)  ; 
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(’The  Launch  Procedure  is  composed  of  the  following  steps’)  ; 

» 

(’  Choose  a  satellite  to  launch’)  ; 

(’  Choose  the  launch  location’)  ; 

( ’  Choose  the  launcher  type ' )  ; 

(’  Choose  the  launch  pad’)  ; 

('  IF  NASA  oks  the  launch,’)  ; 

( ’  then  off  it  goes  ! ’)  ; 

I 

('After  choosing  the  launch  pad,  the  computer  gives  you  a  ’)  ; 
(’opportunity  to  create  a  Multiple  Launch.  A  Multiple  Launch’)  ; 
('is  performed  by  placing  more  than  one  payload  onto  the  same')  ; 
(’launch  vehicle.  The  extra  payloads  add  75  %  of  their  mass’)  ; 
('to  the  overall  lift  mass  the  launcher  must  place  into  orbit.’); 
(’There  can  be  no  more  than  four  payloads  and  they  must  be  ’)  ; 
(’targeted  for  the  same  orbit  altitude  (GEO,  VLEO,  etc).’)  ; 

('For  a  satellite  to  successfully  achieve  orbit,  the  satellite'); 
(’must  first  be  sucessfully  launched.  This  is  a  function  of’)  ; 
(’the  launcher  relability.  If  the  launcher  fails,  the  launcher’); 
(’and  payload  is  destroyed,  and  the  Pad  is  damaged  (S10  Mill).’); 
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GotoXY  (11,23)  ;  TextColor  (white)  ; 

Write  (’Hit  any  key  to  start  the  launch  process’)  ; 
read  (kbd.Ch)  ;  TextColor  (Yellow)  ; 

END  ; 

6  :  BEGIN 
Gotoxy  (1,2)  ; 

WRiteln  (’ADAM  consists  of  10  one-year  turns.  Each  turn  contains  ’)  ; 
wRiteln  (’the  following  phases:’)  ; 

WRiteln  ;  WRITELN  ;  WRITELN  ; 

WRiteln  (’  1.  Read  Scenario  Phase’)  ; 

WRiteln  ;  i 

Writeln  (’  2.  Database  Updatd  Phase’)  ; 

WRiteln  ; 

WRiteln  (’  3.  Acquisition  Phase’)  ; 

WRiteln  ; 

Writeln  C  4.  Assign  Ground  Support  Phase’)  ; 

WRiteln  ; 

Writeln  (’  5.  Deployment  Phase’)  ; 

WRiteln  ; 

Writeln  (’  6.  Scoring  Phase’)  ; 

GotoXY  (19,23)  ;  TextColor  (white)  ; 

Write  (’Hit  any  key  to  continue’)  ;  Read  (kbd,  Ch)  ;  TextColor  (Yellow)  ; 
ClearLines  (1,23)  ;  Gotoxy  (1,1)  ; 

WRiteln  (’In  the  Read  Scenario  Phase,  the  Game  Controller  describes’)  ; 
WRiteln  (’the  conditions  the  players  must  abide  by  for  that  turn.’)  ; 
WRiteln  ; 

WRiteln  (’In  the  Database  Update  Phase,  the  computer  advances  the  ’)  ; 
Writeln  (’status  of  units  upgraded  last  turn.  The  computer  also  ’)  ; 
Writeln  (’performs  a  health  status  check  of  all  active  satellites.’)  ; 
Writeln  ; 

WRiteln  (’In  the  Acquisition  Phase,  the  players  give  orders  for  units’)  ; 
Writeln  (’to  begin  the  next  Milestone  in  the  Acquisition  Cycle.’)  ; 
WRiteln  ; 

Writeln  (’In  the  Ground  Support  Phase,  the  players  assign  the  ground’)  ; 
WRiteln  (’support  nodes  required  for  all  satellites  before  launch.’)  ; 
WRiteln  ; 

WRiteln  (’In  the  Deployment  Phase,  the  players  match  payloads  with’)  ; 
WRiteln  (’launch  vehicles  and  launch  locations  before  launching.’)  ; 
Writeln  ; 

WRiteln  (’In  the  Scoring  Phase,  the  Game  Controller  determines  the’)  ; 
WRiteln  (’mission  requirements  the  players  have  met  in  the  turn.’)  ; 
WRiteln  CA  point  is  assigned  to  each  filled  requirement.  This  phase’)  ; 
WRiteln  ('is  optional  and  only  used  as  a  device  for  measuring  the’)  ; 
Writeln  (’effectiveness  of  the  space  force  developed.*)  ; 

Gotoxy  (10,23)  ;  TextColor  (White)  ; 

Write  (’Hit  any  key  to  continue  the  game’)  ;  TextColor  (Yellow)  ; 

Read  (kbd.Ch)  ; 

END  ; 

7  :  BEGIN 

GotoXY  (14,1)  ;  TextColor  (White)  ; 

WRite  (’ASSIGN  GROUND  SUPPORT  HELP  SCREEN’)  ; 
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Data  Processing ’ ) 
User  Terminal*)  ; 


GotoXY  (1,3)  ;  TextColor  (Yellow)  ; 

WRiteln  (‘All  satellites  must  have  t*.eir  ground  support  elements')  ; 
WRiteln  (’filled  before  they  may  be  launched.  The  ground  support*) 
WRiteln  (‘consists  of  three  elements:  ’)  ; 

Writeln  ; 

writeln  (’  1)  Ground  Control  '  ; 

Writeln  ; 

WRiteln  (’  2)  Data  Processing’)  ; 

Writeln  ; 

Writeln  (’  3)  User  Terminal*)  ; 

WRiteln  ; 

WRiteln  ; 

Writeln  (’Some  ground  units  can  support  more  than  one  satellite.’)  ; 
WBiteln  (’The  more  technologically  advanced  the  ground  unit  is,’)  ; 
WRiteln  (’the  more  satellites  it  can  support.’)  ; 

GotoXY  (7,23)  ;  TextColor  (white)  *, 

Write  ('Hit  any  key  to  begin  assigning  ground  elements’)  ; 

Read  (kbd.Ch)  ;  TextColor  (Yellow)  ; 

END  ; 

ENd  ;  (Case) 

Window  (1,1,80,25)  ; 

Clrscr  ; 
end  ; 

(used  when  player  is  updating  the  ACB.  Determines  if  a  unit  of  that) 
(type  has  already  been  on  the  ACB  and  if  it  has  completed  the  research) 
(stage,  if  so  then  the  copy  skips  the  research  stage  and  goes  directly) 
(into  the  development  stage) 

OVERLAY  PROCEDURE  Check  If  Second.Copy  (Root  :  UnitPtr  ; 

VAR  WorkUnit  :  Unit)  ; 

VAR 

Current  :  UnitPtr  ; 

ThisName  :  stringlO  ; 

TfisNumber  :  integer  ; 

ThisMission  :  stringlO  ; 

Copy  :  boolean  ; 

BEGIN 

Copy  :=  False  ; 

Current  :=  Root  ; 

ThisName  :=  WorkUnit. Name  ; 

ThisNumber  :=  WorkUnit.TailNumber  ; 

ThisMission  :=  WorkUnit. Mission  ; 

WHILE  (Current  <>  Nil)  AND  (Current* .Mission  <>  ThisMission)  DO 
Current  :=  Current* .Next  ; 

WHILE  (Current  <>  Nil)  AND 

.  (Current* .Mission  ~  ThisMission)  AND  (NOT  Copy)  DO 
BEGIN 

IF  Current*. Name  =  ThisName  THEN 
begin 


IF  (Current* . Status  =  ’PRODUCTION’)  OR 
(Current* . Status  =  'READY')  OR 
(Current*. Status  =  ’ACTIVE’)  OR 

(Current*. Status  =  ’SPARE’)  OR  (Current* . Status  =  ’DEAD’) 


end 


THEN  Copy  :=  True 


Current  :=  Current* .Next 
END  : 


IF  Copy  THEN  WorkUnit. Status  :=  ’DEVELOPMENT’ 
ELSE  WorkUnit. Status  :=  ’RESEARCH’  ; 


END  ; 


(used  by  controller  when  units  are  added  to  database.  Also  used  when) 
(developing  a  new  database,  spots  duplicate  entryies  and  asks  if} 
(controller  wants  to  delete  old  entry) 


OVERLAY  PROCEDURE  AddUnit  (VAR  Root 


UnitPtr) 


VAR 

I  : 

Abandon  : 

WorkUnit 

Last 

Current 

Ch 

Temp 

Holder 


integer  ; 
boolean  ; 
Unit  ; 
UnitPtr  ; 
UnitPtr  ; 
char  ; 
string  [10] 
UnitPtr  ; 


BEGIN 

REPEAT  {  until  user  answers  ’N’  to  ‘MORE?*  question  ...  } 

ClrScr  ; 

FillChar  (WorkUnit .SizeOf  (WorkUnit) ,CHR(0) )  ; 

GotoXY  (1,1)  ; 

WITH  WorkUnit  DO  (fill  record  with  good  data  } 

BEGIN 

Write  (’>>  Mission:  ’  )  ;  Readln  (Mission)  ; 

Write  (’>>  Name:  ’  )  ;  Readln  (Name)  ; 


’LAUNCHER’  THEN 


IF  Mission  = 

BEGIN 

Write  (’>>  Tail  Number  ’  )  ;  Readln  (TailNuraber)  ; 

WRite  (’>>  Reusable  Type:  ’  )  ;  Readln  (ReuseField)  ; 

IF  (ReuseField  -  ’REUSABLE’)  OR  (ReuseField  =  ’RECYCLABLE’)  OR 
(ReuseField  =  ’R')  OR  (ReuseField  =  ’C’)  THEN 
BEGIN 

Write  (’>>  Annual  Sorties  Left:  ’ 

Write  (’>>  System  Launches  Rem:  ' 

Write  (’>>  Launch/Refurbish  Cost:' 

Write  (’>>  Status:  ’ 


Readln  (Sorties) 
Readln  (RemUses) 
(OMCost) 
(Status) 


Readln 

Readln 
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END 

ELSE 

BEGIN 


Write 

(’>> 

« 

Active : 

’  ) 

Readln 

(NumActive)  ; 

WRite 

(’>> 

* 

Prod-Active: 

’  ) 

Readln 

(ProdActive)  ; 

Write 

(’>> 

* 

Production: 

’  ) 

Readln 

(NumProd)  ; 

Write 

(’>> 

* 

Dev-Prod: 

’  ) 

Readln 

(DevProd)  ; 

Write 

(’>> 

* 

Development: 

’  ) 

Readln 

(NumDev)  ; 

END  ; 

Write  {’>> 
Write  (’>> 
Write  (’>> 
Write  (’>> 
Write  (*>> 
Write  (’>> 
Write  (’>> 
Write  (’>> 
Write  (’>> 
Write  (’>> 
Write  (’>> 
END 


Realability : 
Deployed: 

R&D  Cost: 

ACQ  Cost: 
Mass  to  VLEO 
Mass  to  LEO 
Mass  to  MOL 
Mass  to  MEO 
Mass  to  GEO 
Update: 

Tech  Level: 


Beadln 

Readln 

Readln 

Readln 

Readln 

Readln 

Readln 

Readln 

Readln 

Readln 

Readln 


(Reliability) 
(Deployed)  ; 
(RDCost)  | 
(ACQCost)  ; 
(VLEO)  ; 

(LEO) 

(MOL) 

(MEO) 

(GEO) 

(Update)  ; 
(TechLevel) 


ELSE 

BEGIN 


IF  Mission  =  ’GROUND’  THEN 


I 


Write 

(’>> 

TailNumber : 

’) 

Readln  (TailNumber) 

Write 

(’>> 

LifeTime: 

’) 

Readln 

(LifeTime)  ; 

Write 

(’>> 

Type: 

’) 

Readln 

(Kind)  ; 

Write 

(’>) 

Deployed  (Year) : 

*> 

Readln 

(Deployed)  ; 

Write 

(’>) 

R&D  Cost  (Mill  $): 

’) 

Readln  (RDCost)  ; 

Write 

(’>> 

ACQ  Cost  (Mill  *) : 

’) 

Readln 

(ACQCost)  ; 

Write 

(’>> 

O&M  Cost  (Mill  f) : 

’) 

Readln 

(OMCost)  ; 

Write 

(’>> 

Status : 

’) 

Readln 

(Status)  ; 

Write 

(’>> 

Supporting 

’) 

Readln 

(SupportName)  ; 

Write 

(’>> 

Tail  Number 

’) 

Readln 

(SupportNumber)  ; 

Write 

(’>> 

Update : 

’) 

Readln 

(Update)  ; 

Write 

(’>> 

Tech  Level: 

’) 

Readln 

(TechLevel)  ; 

END 

ELSE  IF  Mission 
BEGIN 


’PAD’  THEN 


Write 

(’>> 

TailNumber: 

’  ) 

Readln 

(TailNumber)  ; 

WRite 

(’)> 

Location: 

*  ) 

Readln 

(Location)  ; 

Write 

(’>> 

Status : 

’  ) 

Readln 

(Status)  ; 

Write 

(’>> 

Update: 

•  ) 

Readln 

(Update)  ; 

Write 

(’>> 

Deployed: 

’  j 

Readln 

(Deployed)  ; 

Write 

(’>> 

R&D  Cost: 

’  ) 

Readln 

(RDCost)  | 

Write 

(’>> 

ACQ  Cost: 

'  ) 

Readln 

(ACQCost)  ; 

Write 

(’>> 

O&M  Cost: 

’  ) 

Readln 

(OMCost)  ; 

Write 

(’>> 

Launches/Year : 

*  i 
/ 

Readln 

(LaunchRate)  ; 

Write 

(’>> 

Launches/Rem: 

’  ) 

Readln 

(NumRemaining) 

END 


ELSE 

BEGIN 
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Write 

(’>> 

Tai 1 Number : 

‘  ) 

Read In  (Tail Number)  ; 

Write 

(’>> 

Mass : 

’  ) 

Readln  (Mass)  ; 

Write 

(*>> 

LifeTime: 

’  ) 

Readln 

(LifeTime)  ; 

Write 

(’>> 

Deployed  (Year) : 

’  ) 

;  Readln  (Deployed) 

1 

Write 

(’>> 

R&D  Cost  (Mill 

*)  : 

’  ) 

;  Readln  (RDCost) 

1 

Write 

(’>> 

ACQ  Cost  (Mill 

t)  : 

’  ) 

;  Readln  (ACQCost) 

t 

Write 

(’>> 

Status : 

'  ) 

Readln 

(Status)  ; 

Write 

(*>> 

Orbit: 

*  ) 

Readln 

(Orbit)  ; 

Write 

(’>> 

Inclination: 

'  ) 

Readln 

(Inclination)  ; 

Write 

(’>> 

Ascending  Node 

:  ’) 

;  Readln 

(AscendingNode)  ; 

Write 

(’>> 

Update : 

’  ) 

Readln 

(Update)  ; 

Write 

(’>> 

Tech  Level: 

'  ) 

Readln 

(TechLevel)  ; 

Write 

(’>> 

Controller : 

’  ) 

Readln 

(ControlName)  ; 

Write 

(’>> 

* 

‘  ) 

Readln 

(ControlNumber)  ; 

Write 

(’>> 

Processor: 

’  ) 

Readln 

(ProcessorName)  ; 

Write 

(’>> 

* 

*  ) 

Readln 

(ProcessorNumber)  ; 

Write 

(’>> 

User: 

*  ) 

Readln 

(UserName)  ; 

Write 

(’>> 

* 

’  ) 

Readln 

(UserNumber)  ; 

Write 

(’>> 

Add-On  :  1 

’  ) 

Readln 

(AddOnNamel)  ; 

Write 

(*>> 

* 

'  ) 

Readln 

(AddOnNuml)  ; 

Write 

(’>> 

Add-On  :  2 

’  ) 

Readln 

(Add0nName2)  ; 

Write 

C>> 

« 

’  ) 

readln 

(AddOnNum2)  ; 

GotoXY  (40,1)  ; 

Write 

(*>> 

Add-On  :  3 

*  ) 

Read  (Add0nName3)  ;  GotoXY 

(40,2)  ; 

Write 

(’>> 

# 

*  ) 

Read  (Add0nNum3)  ;  GotoXY 

(40,3)  ; 

Write 

(’>> 

Add-On  :  4 

'  ) 

Read  (Add0nName4)  ;  GotoXY 

(40,4)  ; 

Write 

(*>> 

* 

’  ) 

Read  (Add0nNum4)  ;  GotoXY 

(40,5)  ; 

Write 

(’>> 

Add-On  :  5 

’  ) 

Read  (Add0nName5)  ;  GotoXY 

(40,6)  ; 

Write 

(*>> 

i 

*  ) 

Read  (Add0nNum5)  ;  GotoXY 

(40,7)  ; 

Write  (’>>  Anti-Jam  :  Data  ’)  ; 

Read.  (AntiJamDataLink)  ;  GotoXY  (40,8)  ; 
Write  (’>>  Low  Anti-Jam  :  Com  ’ )  ; 

Read  (LowAntiJamComLink)  ;  GotoXY  (40,9)  ; 
Write  (’>>  Med  Anti-Jam  :  Com  ’)  ; 

Read  (MedAntiJamComLink)  ;  GotoXY  (40,10)  ; 
Write  (’>>  Hi  Anti-Jam  :  Com  ’)  ; 
read  (HighAntiJamComLink)  ;  GotoXY  (40,11)  ; 
Write  (’)>  15  Day  Autonomy  ’)  ; 

Read  (Autonomy  15)  ;  GotoXY  (40,12)  ; 
write  (’>>  180  Day  Autonomy  ’)  ; 

Read  (Autonomyl80)  ;  GotoXY  (40,13)  ; 

Write  (’>>  *  of  Manuvers  ’)  ; 

Read  (Manuvers)  ;  GotoXY  (40,14)  ; 

END  ; 


IF  Mission  =  'COMM'  THEN 
BEGIN 

Write  C>>  »  of  Channels:  ’)  ; 

Read  (Channels)  ; 

END  ; 


IF  Mission  =  ’WEATHER’  THEN 
BEGIN 

Write  (’>>  DownLink  ’)  ; 

Read  (DownLink)  ;  GotoXY  (40,15)  ; 
Write  (’>>  DayVideo  ’)  ; 

Read  (DayVideo)  ;  GotoXY  (40,16)  ; 
Write  (’>>  NightVideo  ’)  ; 

Read  (NightVideo)  ;  GotoXY  (40,17) 
Write  (’>>  Daylmage  ’)  ; 

Read  (Daylmage)  ;  GotoXY  (40,18)  ; 
Write  (’>>  Nightlmage  ’)  ; 

Read  (Nightlmage)  ;  GotoXY  (40,19) 
Write  (’>>  Temp  ’)  ; 

Read  (Temp)  ;  GotoXY  (40,20) 

Write  (’>>  Solar  ’)  ; 

Read  (Solar)  ; 

END  ; 

IF  Mission  =  ’NAV’  THEN 
BEGIN 

Write  (’>>  Accuracy  (#)  ’)  ; 

Read  (Accuracy)  ;  GotoXY  (40,15)  ; 
Write  (’>>  Position  (real)  ’) 

Read  (Position)  ;  GotoXY  (40,16)  ; 
Write  (’>>  Redundancy  («)  ’)  ; 

Read  (Redundancy)  ; 

END  ; 

IF  Mission  =  ’IMINT’  THEN 


BEGIN 

Write  (’>>  DownLink  ’)  ; 

Read  (DLink)  ;  GotoXY  (40,15)  ; 
Write  (’>>  DayVideo  ’)  ; 

Read  (DVideo)  ;  GotoXY  (40,16) 

Write  (’>>  NightVideo  ’)  ; 

Read  (NVideo)  ;  GotoXY  (40,17) 

Write  (’>>  Daylmage  ’)  ; 

Read  (DImage)  ;  GotoXY  (40,18) 

Write  (’>>  Nightlmage  ’)  ; 

Read  (NImage)  ; 

END  ; 


IF  Mission  =  ’SIGINT’  THEN 
BEGIN 

Write  (’Data  Link  ’) 

Read  (DataLink)  ;  GotoXY  (40,15)  ; 
WRite  ('Signal  Identidy  ’) 

Read  (Signal)  ;  GotoXY  (40,16)  ; 

END  ; 

IF  Mission  =  ’WARNING'  THEN 
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BEGIN 

Write  (’>>  Aircraft  (S/M/L) 

Read  (Aircraft)  ;  GotoXY  (40,15) 
Write  (’>>  I CBM  (Y/N)  ’) 

Read  (ICBM)  ;  GotoXY  (40,16) 

Write  (’>>  SLBM  (Y/N)  ’) 

Read  (SLBM)  ;  GotoXY  (40,17) 

Write  (’>>  Target  (<?har)  ’) 

Read  (Target)  ;  GotoXY 
Write  (’>>  Count  (char) 

Read  (Count)  ; 

END  ; 


IF  Mission  = 


’OFFENSE’  THEN 
BEGIN 

Write  (*>>  Low  Earth  Orbit  ’) 
Read  (LowOrbit)  ;  GotoXY  (40,15) 
Write  (’>>  Medium  Earth  Orbit  ’) 
Read  (MedOrbit)  ;  GotoXY  (40,16) 
Write  (’>>  High  Earth  Orbit  ’) 
Read  (HighOrbit)  ;  GotoXY  (40,17) 
WRite  (’>>  Ground  Targets  ') 
Read  (GroundTarget)  ;  GotoXY  (40, 
Write  (’>>  Air  Craft  ’) 

Read  (Planes)  ;  GotoXY  (40,19)  ; 
Write  (’>>  Ships  ’) 

Read  (Ships)  ;  GotoXY  (40,20)  ; 
Write  (’>>  Time  Urgent  ’) 

Read  (TimeUrgent)  ; 

END  ; 


18)  ; 


IF  Mission 


’DEFENSE 
BEGIN 
Write 
Read 
Write 
Read 
Write 
Read 
WRite 
Read 
Write 
Read 
END  ; 


’  THEN 

(’>>  Boost  Phase  ’) 

(Boost)  ;  GotoXY  (40,15)  ; 
(’>>  MidCourse  Phase  ’) 

(MidCourse)  ;  GotoXY  (40,16) 
(’>>  Reentry  Phase  ’) 

(Reentry)  ;  GotoXY  (40,17)  ; 
(’>>  Air  Craft  ’) 

(AC)  ;  GotoXY  (40,18)  ; 

(’>>  Cruise  Missiles  ’) 

(CruiseMissile)  : 


END  ; 

Abandon  :=  False  ; 

{  look  for  duplicates  here  ) 

IF  Root  =  Nil  THEN  {  if  list  is  empty  point  Root  to  unit  ) 
BEGIN 
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New  (Root)  ; 

WorkUnit.Next  :=  Nil  ;  {  ensure  list  is  terminated  by  Nil  ) 

Root*  :=  WorkUnit  ;  Head  :=  Root  ; 

END 

ELSE  {  ...  if  theres  somethin  in  the  list  already  ) 

BEGIN 

Current  :=  Root  ;  {  start  traverse  at  Root  of  list  ) 

REPEAT 

IF  (Current* .Name  =  WorkUnit. Name) 

AND  (Current* .TailNumber  =  WorkUnit. TailNumber)  THEN 
{  duplicate  found  ) 

BEGIN 

ShowUnit  (Current*)  ; 

ClearLines  (23,25)  ; 

Center_Line  (24, 

’Duplicate  entry  exists,  delete  old  record  (Y/N)’)  ; 

IF  Yes  THEN  Abandon  :=  True  ELSE  Abandon  :=  False  ; 

END  ; 

IF  Abandon  THEN 
BEGIN 

Holder  :=  Current* .Next  ; 

Dispose  (Current)  ; 

New  (Last*. Next)  ; 

WorkUnit.Next  :=  Holder  ; 

Last*. Next*  :=  WorkUnit  ; 

END 

ELSE 

BEGIN 

Last  :=  Current  ; 

Current  :=  Current* .Next 
END  ; 

UNTIL  (Current  =  Nil)  OR  Abandon  OR 

(Current* .Mission  >=  WorkUnit. Mission)  0R 
( (Current* .Mission  =  WorkUnit. Mission)  AND 
(Current* .Name  >=  WorkUnit. Name) )  ; 

(sorts  list  by  mission  and  name) 

IF  NOT  Abandon  THEN  {  add  UnitRec  to  linked  list  } 

IF  (Root* .Mission  >  WorkUnit. Mission)  AND 

(Root ‘.Name  >  WorkUnit. Name)  THEN  {  new  root  item  } 

BEGIN 

New  (Root)  ;  {create  new  dynamic  Unit  } 

WorkUnit.Next  :=  Last  ;  {  point  new  unit  at  old  root  ) 

Root*  :=  WorkUnit  {  point  new  root  at  workUnit  ) 

END 

ELSE 

BEGIN 

NEW  (Last*. Next)  ;  {  create  new  dynamic  Unit  } 

WorkUnit.Next  :=  Current  ;  {  points  its  next  to  current  } 
Last*. Next*  :=  WorkUnit  ;  {  and  assign  WorkUnit  to  it  ) 

END  ; 

END  ; 
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GotoXY  (1,24)  ;  Write  (’>>  Add  another  unit  to  list?  (Y/N) :  ’)  ; 
Beadln  (Ch)  ; 

UNTIL  (Ch  =  ’ N * )  OR  (Ch  =  ’n’)  ; 

END  ; 


OVERLAY  PROCEDURE  Add_Copy  (Root  :  UnitPtr  ;  Var  WorkUnit  :  Unit)  ; 

VAR 

Current .Present ,  Last  :  UnitPtr  ; 

Number  :  integer  ; 

BEL^N 
ClrScr  ; 

Current  :=  Root  ; 

Number  :=  0  ; 

WHile  (Current  <>  Nil)  And  (Current' .Mission  <>  WorkUnit. Mission)  DO 
Current  :=  Current* .Next  ; 

REPEAT 

:  IF  (Current* . Name  =  WorkUnit .Name)  AND  (Current* .TailNumber  )  Number) 

THEN  Number  :=  Current* .TailNumber  ; 

Last  :=  Current  ; 

Current  :=  Current* .Next  ; 

UNTIL  (Current  =  Nil)  OR  (Current* .Mission  <>  WorkUnit. Mission)  ; 

I  New  (Last*. Next)  ; 

i  Last*. Next*  :=  WorkUnit  ; 

Last* .Next* .Next  :=  Current  ; 

Last* .Next* .TailNumber  :=  Number  +  1  ; 

Search  (Root,  WorkUnit. Name ,  Number  +  1,  ’YES’)  ; 

Where ‘.Status  :=  ’RESEARCH’  ; 

IF  Where*. Mission  =  ’PAD’  THEN 
BEGIN 

ClearLines  (20,25)  ; 

GotoXY  (24,20)  ; 

TextColor  (White)  ; 

WRite  (’WHERE  DO  YOU  WANT  TO  BUILD  ’, 

Where* .Name: 10,  Where* .TailNumber : 3)  ; 

GotoXY  (21,22)  ; 

WRite  ('Enter  V  for  Vandenberg  or  C  for  Canaveral  ’)  ; 

Read  (kbd.Ch)  ; 


Case  Ch 

OF 

’V’  , 

’v’ 

:  Where ‘.Location  :=  ’VANDENBERG’ 

*C’  , 

’c’ 

:  Where ‘.Location  :=  ’CANAVERAL’  ; 

END  : 

END  ; 
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Check  If  Second  Copy  (Root,  Where')  ; 
END  ; 


OVERLAY  PROCEDURE  Delete_Unit  (VAR  Root  :  UnitPtr  ;  ThisName  :  stringlO  ; 

ThisNumber  :  integer)  ; 


VAR 

Holder  :  UnitPtr  ; 

Current  :  UnitPtr  ; 

Last  :  UnitPtr  ; 

BEGIN 

Current  :=  Root  ; 

Last  :=  Root  ; 

WHILE  (Current  <>  Nil)  AND  ( (Current' .Name  <>  ThisName) 

OR  (Current' .TailNumber  <>  ThisNumber))  DO 
BEGIN 

Last  :=  Current  ; 

Current  :=  Current' . Next  ; 

END  ; 

IF  (Current' .Name  =  ThisName)  AND  (Current' .TailNumber  =  ThisNumber)  THEN 
BEGIN 

Holder  :=  Current' . Next  ; 

Dispose  (Current)  ; 

Last'. Next  :=  Holder  ; 

END  ; 


END  ; 


(shows  the  entire  database,  entry  by  entry) 
OVERLAY  PROCEDURE  ViewList  (Root  :  UnitPtr)  ; 
VAR 

WorkFile  :  UnitFile  ; 

Current  :  UnitPtr  ; 

Last  :  UnitPtr  ; 

BEGIN 

Current  :=  Root  ; 


IF  Root  =  Nil  THEN  {  nothing  is  now  in  list  } 
BEGIN 
Clrscr  ; 

Border  1  ; 
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/s 


Center_Line  (12,  ’<<  Your  list  is  emptyi  >>  ’)  ; 

Center_Line  (14,  ’  Press  ANY  KEY  to  continue  ’)  ; 

Readln  (kbd.Ch)  ; 

END 

ELSE 

BEGIN 

Current  :=  Root  ; 

REPEAT 

ShowUnit  (Current')  ; 

ClearLines  (24,25)  ; 

Center_Line  (25, 

’>>  Press  <CR>  to  view  next  unit  in  list  or  mQ‘  to  quit’)  ; 
Read  (kbd.Ch)  ; 

Current  :=  Current* .Next  ; 

UNTIL  (Ch  IN  C ' Q ’ , * q * ] )  OR  (Current  =  Nil)  ; 

END  ; 

END  ; 


(used  to  save  current  database  to  disk) 

OVERLAY  PROCEDURE  SaveList  (Root  :  UnitPtr)  ; 

VAR 

WorkName 
WorkFile 
Current 
I 

BEGIN 

TextBackground  (1)  ; 

ClrScr  ; 

Border  1  ; 

TextBackground  (1)  ; 

Center_Line  (12,  ’Enter  filename  for  saving  the  database  ’)  ; 
Readln  (WorkName)  ; 

Assign  (WorkFile .WorkName)  ;  {  open  file  for  write  access  ) 

Rewrite  (WorkFile)  ; 

Current  :=  Root  ; 

WHILE  Current  <>  Nil  DO  {  traverse  and  write  ) 

BEGIN 

Write  (WorkFile .Current*)  ; 

Current  :=  Current* .Next 
END  : 

Close  (WorkFile) 

END  ; 


(Called  beginning  of  each  turn  to  determine  status  of  all  active) 


string  (30)  ; 
UnitFile  ; 
UnitPtr  ; 
integer  ; 
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(satellites) 

OVERLAY  PROCEDURE  Check  Failure  (VAR  Root  :  UnitPtr) 


VAR 

Age  :  integer 
Current  :  UnitPtr 
FailRate  :  real  ; 
Check  :  integer 
Line  :  integer 
AtLeastOneFailed  : 


boolean 


’) 

’) 


BEGIN 

TextBackground  (1)  ; 

Center_Line  (12,  ’ 

Center_Line  (14,  ' 

AtLeastOneFailed  :=  False  ; 

Line  :=  6  ; 

Current  :=  Root  ; 

TextColor  (White)  ; 

While  Current  <>  Nil  DO 
BEGIN 

IF  (Current* .Status  =  'ACTIVE')  AND  (Current* .Mission  <>  'LAUNCHER')  AND 
(Current* .Mission  <)  'PAD')  AND  (Current* .Mission  <>  ’GROUND’)  THEN 
BEGIN 

Age  :=  Year  -  Current* .Deployed  ; 

Check  :  =  Current* .LifeTime  -  Age  ; 


IF  Check  <  0  THEN  FailRate  :=  1.0 
ELSE  IF  Check  =  0  THEN  FailRate  :=  0.58 
ELSE  IF  Check  <  2  THEN  FailRate  :=  0.08 
ELSE  FailRate  :=  0.003  ; 


IF  Random  <  FailRate  THEN 
BEGIN 

GotoXY  (25, Line)  ; 

Write  (‘System  ’,  Current' . Name : 10 ,  Current* .TailNumber :3 , 
’  Failed  at  Age  ’  ,  Age)  ; 

Current* .Status  :=  ’DEAD’  ; 

AtLeastOneFailed  :=  True  ; 

Line  :=  Line  +  1  ; 

END  ; 


END  ;  (status  =  ACTIVE  and  Mission  <>  Launcher/Pad/Ground) 
Current  :=  Current* .Next  ; 


END  ;  (while  not  nil) 

IF  AtLeastOneFailed  THEN 
BEGIN 

GotoXY  (30,23)  ; 

WRite  (’Hit  any  Key  to  continue’)  ;  Read  (kbd.Ch/  ; 
END  ; 

TextColor  (Yellow)  ; 

Textbackground  (1)  ; 
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clrscr  ; 
END  ; 


(called  when  updating  units  on  ACB  to  detmine  affordability) 

OVERLAY  PROCEDURE  Check, Budget  (VAR  WorkUnit  :  Unit)  ; 

VAR 

Cost  :  integer  ; 

BEGIN 

WITH  WorkUnit  DO 
BEGIN 

IF  (Status  =  ’FEASIBLE')  OR  (Status  =  ’RESEARCH’) 

THEN  Cost  :=  Round  (RDCost  /  2) 

ELSE  Cost  ! =  ACQCost  | 

IF  (BUDGET  -  Cost  <  0  )  THEN 
BEGIN 

ClearLines  (23,25)  ; 

GotoXY  (15,23)  ; 

Write  (’cannot  afford  to  buy/update  ’, 

Name: 10,  ’  check  budget’)  ; 

TextColor  (White)  ; 

Center_Line  (25,  'Hit  Any  Key  to  continue’)  ;  read  (kbd.Ch)  ; 
textCoIor  (Yel)ow)  ; 

END  ; 

IF  (BUDGET  -  Cost  >=  0  )  THEN 
BEGIN 

IF  Update  =  99  THEN  Update  :=  4  {late  surviv.  mods) 

ELSE  Update  :=  2  ; 

BUDGET  :=  BUDGET  -  Cost  ; 

END  ; 


END  ; 
END  ; 


{called  during  Count_Systems  to  determine  where  to  begin  writeing) 
{next  entry  on  ACB  Screen) 

FUNCTION  Max  (A,B,C,D,E  :  integer)  :  integer  ; 

VAR 

Temp  :  integer  ; 

BEGIN 

IF  A  >  B  THEN  Temp  :=  A  ELSE  Temp  :=  B  ; 

IF  Temp  <  C  THEN  Temp  :=  C  ; 


V‘ V  >  V  v 
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IF  Temp  <  D  THEN  Temp  : =  D  ; 

IF  Temp  <  E  THEN  Temp  : =  E  ; 

Max  : =  Temp  ; 

END  ; 

{displays  all  the  systems  on  the  ACB) 

PROCEDURE  Count_Systems  (VAR  Root  :  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

ThisMission  :  stringlO  ; 

ThisStatus  :  stringll  ; 

BuyLine,  RDlLine,  RD2Line,  ACQLine,  LAULine  :  integer  ; 

NextLine  :  integer  ; 

ReusableLV  :  boolean  ; 

Updated  :  string  [23  ; 

ThisName  :  string  [123  ; 

BEGIN 

Updated  : =  ' *  '  ; 

ClearLines  (7,25)  ; 

Current  :=  Root  ; 

NextLine  :=  8  ; 

WHILE  (Current  <>  Nil)  AND  (NextLine  <  23)  DO 
BEGIN 

IF  (Current*. Mission  =  ‘LAUNCHER’)  AND 
( (Current*. ReuseField  =  ’REUSABLE’)  OR 
(Current *.ReuseFie Id  =  ’RECYCLABLE’)  OR 

(Current* .ReuseField  =  ’R’)  OR  (Current* .ReuseField  =  ’ C ’ ) ) 
THEN  ReusableLV  :=  True 
ELSE  ReusableLV  :=  False  ; 

IF  (Current* .Mission  <>  ’LAUNCHER’)  OR  (ReusableLV)  THEN 
BEGIN 

ThisMission  :=  Current* .Mission  ; 

BuyLine  :=  NextLine  ;  RDlLine  :=  NextLine  ;  RD2Line  :=  NextLine  ; 
ACQLine  :=  NextLine  ;  LAULine  :=  NextLine  ; 

GotoXY  (3, NextLine)  ;  Write  (ThisMission)  ; 

GotoXY  (23,  NextLine)  ;  Write  (’-’)  ; 

GotoXY  (40 ;NextLine)  ;  Write  (’-’)  ; 

GotoXY  (56, NextLine)  ;  Write  (’-’)  ; 

GotoXY  (71  .NextLine)  ;  Write  (’-’,’  ; 

While  ThisMission  =  Current* . Mission  DO 

BEGIN 

ThisStatus  :=  Current* . Status  ; 

IF  ThisStatus  =  ’FEASIBLE’  THEN 
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BEGIN 

GotoXY  (15,  BuyLine)  ; 

IF  (Current* . Update  >  0)  AND  (Current* .Update  <>  99) 
THEN  ThisName  :=  Updated  +  Current* .Name 
ELSE  ThisName  :=  Current* .Name  ; 

Write  (ThisName : 12 ,  Current* .TailNumber: 3)  ; 

BuyLine  :=  BuyLine  +  1  ; 

END  ; 

IF  ThisStatus  =  ’RESEARCH’  THEN 
BEGIN 

GotoXY  (31,  RDlLine)  ; 

IF  (Current* .Update  >  0)  AND  (Current* .Update  <>  99) 
THEN  ThisName  :=  Updated  +  Current* .Name 
ELSE  ThisName  :=  Current* .Name  ; 

Write  (ThisName : 12 ,  Current* .TailNumber :3)  ; 

RDlLine  :=  RDlLine  +  1  ; 

END  ; 

IF  ThisStatus  =  ’DEVELOPMENT’  THEN 
BEGIN 

GotoXY  (47,  RD2Line)  ; 

IF  (Current* .Update  >  0)  AND  (Current* .Update  <>  99) 
THEN  ThisName  :=  Updated  +  Current* .Name 
ELSE  ThisName  :=  Current* .Name  ; 

Write  (ThisName: 12,  Current* .TailNumber : 3)  ; 

RD2Lir.e  :  =  RD2Line  +  1  ; 

END  ; 

IF  ThisStatus  =  ’PRODUCTION’  THEN 
BEGIN 

GotoXY  (63,  ACQLine)  ; 

IF  (Current* .Update  >  0)  AND  (Current* .Update  <>  99) 
THEN  ThisName  :=  Updated  +  Current* .Name 
ELSE  ThisName  :=  Current* .Name  ; 

Write  (ThisName: 12,  Current*. TailNumber: 3)  ; 

ACQLine  :=  ACQLine  }.  1  ; 

END  ; 

Current  :=  Current' . Next  ; 

END  ;  (Mission  K  ThisMissic.nl 

END  (Mission  is  sat  or  resuablel 
ELSE  Current  :=  Current* .Next  ; 

NextLine  :=  Max  (BuyLine,  RDlLine,  RD2Line,  ACQLine,  LAULine)  ; 
NextLine  :=  NextLine  +  2  ; 

END  ;  (Nil  and  line  check) 

IF  (NextLine  >=  23)  AND  (Current  <)  Nil)  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (25,  ’Enter  'C'  to  continue  listing’)  ; 
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IF  Continue  THEN  Count  Systems  (Current)  ; 

END  ; 

IF  Current  =  Nil  THEN 
BEGIN 

ClearLinss  (23,25)  ; 

Center_Line  (25,  ’Hit  *C*  to  restart  listing  or  <CR>  to  begin  updating’) 
IF  Continue  THEN  Count  Systems  (Head)  ; 

END  ; 

END  ; 


(displays  ACB  screen  and  asks  for  updates  } 

(determines  if  player  wants  to  add  another  copy  of  a  unit,  player  does) 
(this  by  entering  a  tail  number  of  "0‘) 

OVERLAY  PROCEDURE  Display_Satellite_ACB_Screen  (Root  :  UnitPtr  )  ; 

VAR 

Update  :  boolean  ; 

OnACB  ;  boolean  ; 

AllReadyUpdated  :  boolean  ; 

Cost  :  integer  ; 

Copy  :  boolean  ; 

BEGIN 

REPEAT 

Copy  :=  False  ; 

AllReadyUpdated  :=  False  ; 

OnACB  :=  True  ; 

ClrScr  ; 

Center_Line  (2,  'SATELLITE  ACQUISITION  BOARD’)  ; 

GotoXY  (63,2)  ;  Write  (’YEAR:  ’,  Year:4)  ; 

Center_Line  (3,  ’*  Indicates  Unit  Has  Been  Ipdated’)  ; 

GotoXY  (33,4)  ;  Write  (’BUDGET:  ’,  BUDGET)  ; 

TextColor  (White)  ; 

GotoXY  (4.6)  ;  Write  (’MISSION’)  ; 

GotoXY  (20,6)  ;  Write  {’FEASIBLE’)  ; 

GotoXY  (37,6)  ;  Write  (’RESEARCH’)  ; 

GotoXY  (52,6)  ;  Write  (’DEVELOPMENT’)  ; 

GotoXY  (68,6)  ;  Write  (’PRODUCTION’)  ; 

TextColor  (Yellow)  ; 

Writeln  ; 

Update  :=  True  ; 

Count_Systems  (Root)  ; 

CloarLines  (23,25)  ; 

Center_Line  (25,  ‘Hit  *Q’  if  you  do  not  want  to  update  units  ’)  ; 

Read  (kbd.Ch)  ; 


IF  (Ch  =  'Q ' )  OR  (Ch  =  ’q’ )  THEN  Update  :=  False  ; 

IF  Update  THEN 

BEGIN 


ClearLines  (23,25)  ; 

Center_Line  (24, 

’Enter  name  of  unit  to  be  updated:  (DSCS  II,  Eagle  etc)’)  ; 

Center_Line  (25, 

'Enter  tail  number:  (0  will  update  "Feasible*  unit)  ’)  ; 

GotoXY  (68,24)  ;  Read  (SearchName)  ; 

SearchNumber  :=  Getlnt  (StringNumber ,  68,25)  ; 

IF  SearchNumber  =  0  THEN  (adding  copy) 

BEGIN 

Search  (Root,  SearchName,  SearchNumber,-  ’NO’)  ; 

IF  Found  THEN 
BEGIN 

Copy  : =  True  ; 

Add_Copy  (Root,  Where")  ; 

END”; 

END  (searchnumber  =  0) 

ELSE  Search  (Root,  SearchName,  SearchNumber ,  ’YES’)  ; (already  on  ACB) 

IF  Found  THEN 
BEGIN 

IF  (Where ".Update  >  0)  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (23,  ’Unit  is  currently  being  upgraded  !!’)  ; 
Center_Line  (25,  ’Hit  any  key  to  continue’)  ;  Read  (kbd.Ch)  ; 
AllReadyUpdated  :=  True  ; 

END  ; 

IF  (Where '.Status  <>  ’FEASIBLE’)  AND  (Where" .Status  <>  ’RESEARCH’) 

AND  (Where ".Status  <>  ’DEVELOPMENT’)  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (23,  ’Unit  is  not  in  the  Acqusition  Process’)  ; 
Center_Line  (25,  ’Hit  any  key  to  continue’)  ;  Read  (kbd.Ch)  ; 
OnACB  :=  False  ; 

END  ; 


IF  (NOT  AllReadyUpdated)  AND  OnACB  THEN 
BEGIN 

ClearLines  (24,25)  ; 

IF  (Where ‘.Status  =  ’FEASIBLE’)  OR 
(Where ‘.Status  =  'RESEARCH')  THEN 


Cost  :=  Where" .RDCost  Div  2 


ELSE  Cost  :=  Where* .ACQCost  ; 

GotoXY  (20,24)  ; 

Write  (’Updating  this  unit  will  cost  ’,  Cost,  ’  Million’)  ; 


Center_Line  (25,  ’Do  you  wish  to  upgrade  this  unit  (Y/N)  ?  ’) 
IF  Yes  THEN  Check  Budget  (Where*) 

ELSE  IF  Copy 


THEN  Delete_Unit  (Root,  Where*. Name,  Where* .TailNumber)  ; 
END  ;  (ACB  status  check} 

END  ;  (found} 

END  ;  (if  update} 

UNTIL  NOT  Update  ; 

END  ; 

(displays  the  Expendable  Launcher  ACB  screen,  only  column  player  may} 
(interact  with  is  the  development  column,  other  columns  automatically) 
(updated  at  every  year  start} 

OVERLAY  PROCEDURE  Display _ExpendableLauncher_ACB_Screen  (Root  :  UnitPtr) 
VAR 

Current  :  UnitPtr  ; 

Update  :  boolean  ; 

Number, Cost  :  integer  ; 

LauncherName  :  string  10  ; 

BEGIN 

TextBackground  (1)  ; 

ClrScr  ; 

Current  :=  Root  ; 

Update  :=  True  ; 

Center_Line  (2,  'EXPENDABLE  LAUNCHER  AQUJSITION  SCREEN')  ; 

GotoXY  (60,3)  ;  Write  ('YEAR:',  Year: 5)  ; 

GotoXY  (33,4)  ;  Write  (’BUDGET:  BUDGET)  ; 

TextColor  (White)  ; 

GotoXY  (30,6)  ;  Write  CDEV-PROD’)  ; 

GotoXY  (57,6)  ;  WRite  ( 'PROD-ACTIVE' )  ; 

GotoXY  (6,7)  ;  Write  ('NAME')  ; 

GotoXY  (14,7)  ;  Write  ('DEVELOPMENT')  ; 

GotoXY  (29,7)  ;  Write  ('TRANSITION')  ; 

GotoXY  (43,7)  ;  Write  ('PRODUCTION')  ; 

GotoXY  (58,7)  ;  Write  ('TRANSITION')  ; 

GotoXY  (73,7)  ;  WRite  (’ ACTIVE’)  ; 

TextColor  (Yellow)  ; 

GotoXY  (1,9)  ; 

While  (Current  <>  Nil)  AND  (Current* .Mission  <>  'LAUNCHER')  DO 
Current  :=  Current* .Next  ; 

While  (Current  <>  Nil)  AND  (Current* .Mission  =  'LAUNCHER')  DO 
BEGIN 

IF  (Current* .ReuseField  =  ”)  OR  (Current* .ReuseField  =  'NO')  THEN 
Writeln  (Current* .Name : 10 ,  Current* .NumDev: 10,  Current* .DevProd: 15, 
Current* .NuraProd: 13,  Current* .ProdActive: 13, 

Current* .NumActive : 15)  ; 

Current  :=  Current* .Next  ; 

END  ; 


ClearLines  (23,25)  ; 


Center_Line  (23,  'Hit  *Q‘  if  you  do  not  want  to  update  any  launchers’)  ; 
Read  (kbd.Ch)  ; 

IF  Ch  IN  ['QVq']  THEN  Update  :=  False  ; 

IF  Update  THEN 
BEGIN 

GotoXY  (5,23)  ; 

Write  ( 

’Enter  name  of  launcher  to  be  upgraded  (ATLAS,  TITAN  34D  etc):  ’)  ; 

Read  (LauncherName)  ; 

Search  (Root,  LauncherName,  1,  ’NO’)  ; 

IF  (Found)  AND  ( (Where* .ReuseFie Id  =  ”)  OR 

(Where*. ReuseField  =  ’NO’))  THEN 

begin 

GotoXY  (20,24)  ; 

WRite  (’Enter  #  of  ’ ,  LauncherName,  ’  to  be  put  in  production  ’)  ; 
Number  :=  Getlnt  (StringNumber ,  65,20)  ; 

IF  (Where* , NumDev  -  Number)  <  0  THEN 
BEGIN 

ClearLines  (23,25)  ;  GotoXY  (25,24)  ; 

Write  (’Dont  have  that  many  ’  ,  LauncherName,  ’s’)  ; 

Center  Line  (25,  ’Hit  any  key  to  continue’)  ;  Read  (kbd.Ch)  ; 

END 

ELSE 

BEGIN 

Cost  :=  Where* .ACQCost  ; 

IF  BUDGET  -  Cost  <  0  THEN 
BEGIN 

ClearLines  (23,25)  ; 

GotoXY  (20,24)  ; 

Write  (’cant  afford  to  update  ’.Number,  SearchName: 10)  ; 
Center_Line  (25,  'Please  hit  <CR>  to  continue’)  ;  Read  ; 

END 

ELSE 

BEGIN 

BUDGET  :=  BUDGET  -  Cost  ; 

Where*. Hold  :=  Where*. Hold  +  Number  ; 

Where* .Update  :=  0  ; 

Where *. NumDev  :=  Where* .NumDev  -  Number  ; 

END  ;  {within  budget) 

END  ;  (Not  toomany) 


END  ;  (Found  and  expendable) 
END  ;  {Update) 


END  ; 


{used  by  controller  if  he  wants  to  change  the  status  of  a  unit) 
OVERLAY  PROCEDURE  Change.Staius  (Root  :  UnitPtr)  ; 


VAR 

ThisStatus  :  stringll  ; 
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BEGIN 

TextBackground  (1)  ; 

CIrScr  ; 

Center_Line  (2,  ’CHANGE  SATELLITE  STATUS’)  ; 

Center_Line  (12,  'Enter  name  of  unit  ’)  ; 

Center_Line  (14,  ’Enter  tail  number  ’)  ; 

GotoXy  (50,12)  ;  Read  (SearchName)  ; 

SearchNumber  :=  Getlnt  (StringNumber ,  50,14)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’YES’)  ; 

IF  Found  THEN 
begin 

ClearLines  (23,25)  ; 

Center_Line  (24,  ’Enter  new  status  (FEASIBLE,  RESEARCH  .etc  ’)  ; 
Read  (ThisStatus)  ; 

Where* . Status  :=  ThisStatus  ; 


END  ;  (if  found) 
END  ; 


(called  from  Ground_Track ,  displays  the  ground  swaths  of  satellites) 
(each  satellite  has  own  FOV.  also  function  of  altitude) 

(data  files  contain  pre-calucalated  ground  points) 

OVERLAY  Procedure  Trace  (Orbit  :  string5  ;  Inc  :  integer  ; 

Ascending  :  integer  ;  Mission  :  stringlO)  ; 

VAR 

First  :  boolean  ; 

FOV  :  integer  ; 

X, Y,X1 ,Y1 ,X2 , Y2  :  integer  ; 

Bottom,  Top,  Right,  Left  :  integer  ; 

Lat,  Lon,  TempLon  :  real  ; 

Ch  :  char  ; 

Trace  :  text  ; 

Stop  :  boolean  ; 

Radius  :  integer  ; 


BEGIN 

Radius 


75 


IF  Orbit  =  ’GEO’  THEN 
BEGIN 

Ascending  :=  Round  (Ascending  *  0.9  +  160)  ; 

Circle  (Ascending,  100,  Radius,  2)  ; 

(check  for  off  screen  coverage) 

IF  Ascending  >=  245 

THEN  Circle  (Ascending  -  320,  100,  Radius,  2)  ; 
IF  Ascending  <=  75 

THEN  Circle  (Ascending  +  320,  100,  Radius,  2)  ; 
END 
ELSE 
BEGIN 


202 


•3 


’il 


■«f  '  it. **4  ’»• "  ila  li.'  il:  (I.  »1_  *(g  ilt  il.j'i  t’#  (U  it,  |l.  it.  |tj  it.  |i|  it.  it.  iU  |L-  it.  I'’,  it. 


i*.  •'.  i‘. 


IF  (Orbit  =  ’ VLEO ’ )  OR  (Orbit  =  ’LEO*)  THEN 
BEGIN 

Case  Inc  OF 


10..  40  :  Assign  (Trace,  ’ A: VLE030.DAT’ ) 

41..  70  :  Assign  (Trace,  ’A.-VLE060.DAT’) 

71..  95  :  Assign  (Trace,  ’A: VLE095.DAT’) 
END  ;  (Case) 

END  ;  (VLEO) 


IF  Orbit  =  ’MEO’  THEN 
BEGIN 

Case  Inc  OF 


10..  40  :  Assign  (Trace,  ’A: MEQ30.DAT’ )  ; 

41..  70  :  Assign  (Trace,  ’A: ME060.DAT’)  ; 

71..  95  :  Assign  (Trace,  'A: ME095.DAT ’ )  ; 

END  ;  (Case) 

END  ;  (MEO) 

IF  (Orbit  =  ’MOL1)  THEN  Assign  (Trace,  ’ A : MOL . DAT ’ )  ; 


Reset  (Trace)  ; 
First  :=  True  ; 


IF  Mission  =  ‘NAV’ 
BEGIN 


IF  Orbit  = 

’VLEO’ 

THEN 

FOV 

:=  5  ; 

IF  Orbit  = 

’LEO’ 

THEN 

FOV 

:=  10  ; 

IF  Orbit  = 
END  : 

’MEO’ 

THEN 

FOV 

:=  20  ; 

IF  Mission 
BEGIN 


’WEATHER’  THEN 


IF  Orbit  = 

’VLEO' 

THEN 

FOV 

:=  6  ; 

% 

IF  Orbit  = 

’LEO’ 

THEN 

FOV 

:=  12  ; 

1 

V 

> 

IF  Orbit  = 
END  ; 

’MEO’ 

THEN 

FOV 

:=  3  ; 

IF  Mission  =  ’IMINT’  THEN 
BEGIN 

IF  Orbit  =  ’VLEO’  THEN  FOV 
IF  Orbit  =  ’LEO*  THEN  FOV 
IF  Orbit  =  ’MEO’  THEN  FOV 
END  ; 


’SIGINT’  THEN 


IF  Mission  = 


BEGIN 


IF 

Orbit  = 

’ VLEO ’ 

THEN 

FOV 

:=  10 

IF 

Orl i t  = 

’LEO’ 

THEN 

FOV 

:=  5  ; 

IF 

Orbit  = 

’MEO’ 

THEN 

FOV 

:=  3  ; 

END  ; 


IF  FOV  =  0  THEN  FOV  :=  5  ;  (ensure  program  doesnt  bomb) 

While  NOT  EOF  (Trace)  DO 
BEGIN 

Readln  (Trace,  Lat,  Lon)  ; 

IF  Lat  >=  -60  THEN 
BEGIN 


Lon  :=  Lon  +  Ascending  ; 

TempLon  :=  Lon  ; 

IF  (Lon  >=  180)  AND  (Lon  <=  360)  THEN  TempLon  :=  Lon  -  360 
IF  (Lon  )=  -180)  AND  (Lon  <=  -360)  THEN  TempLon  :=  Lon  +  360 

Lon  : =  TempLon  ; 

Y  :=  Round  (120  -  Lat  «  1.2)  ; 

X  :=  Round  (Lon  «  0.9  +  160)  ; 

IF  abs  (XI  -  X)  >  100  THEN  First  :=  True  ; 

IF  First  THEN 
BEGIN 

XI  :=  X  ; 

X2  :«  X  ; 

Y1  :=  Y  ; 

Y2  :=  Y  ; 

First  :=  False  ; 

END  ; 

IF  Orbit  <>  ’MOL’  THEN 
BEGIN 

Circle  (X,Y,F0V,2)  ; 

XI  :=  X  ;  Y1  :=  Y  ; 

END  (not  MOL) 

ELSE 

BEGIN 

Draw  (XI , Y1 ,X, Y, 2)  ; 

XI  :=  X  ; 

Y1  :=  Y  ; 

END  ;  (MOL) 


END  ;  {EOF} 


Close  (Trace)  ; 

END  ;  (Not  comm) 

END  ; 

{called  from  main  at  game  start  to  draw  global  picture,  stores  it  in) 
{global  "world*  array} 

OVERLAY  PROCEDURE  Dr aw_ World  ; 

VAR 

Start  :  boolean  ; 

Outline  :  text  ; 

Lat,  Lon  :  real  ; 

X, Y,X1 ,Y1  :  integer  ; 


BEGIN 
ClrScr  ; 

GraphColorMode  ; 

write  ('  loading  world  data’)  ; 

Start  :=  True  ; 

Assign  (Outline,  ’A: World.dat’ )  ; 

Reset  (Outline)  ; 

While  NOT  EOF  (Outline)  DO 
BEGIN 

Readln  (Outline,  Lat,  Lon)  ; 

IF  Lat  >=  -55.0  THEN 
BEGIN 

IF  (Lat  <>  99)  OR  (Lon  <>  99)  THEN 
BEGIN 

Lon  :=  -  Lon  ; 

Y  :=  Round  (120  -  Lat  *  1.2)  ; 

X  :=  Round  (Lon  *  0.9  +  160)  ; 

IF  Abs  (XI  -  X)  >  100  Then  Start  :=  True  ; 
IF  Start  THEN 
BEGIN 

XI  :=  X  ; 

Y1  :=  Y  ; 

Start  :=  False  ; 

END  ; 

Draw  (XI ,Y1 ,X,Y, 1)  ; 

XI  :=  X  ; 

Y1  :=  Y  ; 

END 

ELSE  Start  :=  True  ; 

END  ;  {  <  -55} 
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END  ;  (while) 


GetPic  (World,  0,20,320,200)  ; 

TextMode  ; 

END  ; 


{Orbit_Correction_Factor  calculates  the  correction  factor  as  a  function} 
{of  launcher  type  and  launch  inclination.  The  shuttle  types  have  worse) 
{adjust  factor.  This  factor  is  multiplied  by  lift  weight  of  launcher  to} 
{determine  the  mass-to-orbit  capability) 

FUNCTION  Orbit_Correction_Factor 

(LauncherName  :  stringlO  ;  Inclination  :  integer)  :  real  ; 


VAR 

|  VandWindow  :  Window  ; 

CapeWindow  :  Window  ; 

InRange  :  boolean  ; 

Factor  :  real  ; 

ShuttleType  :  boolean  ; 

! 

BEGIN 

ShuttleType  :=  False  ; 

1  Factor  :=  1.0  ; 

VandWindow  :=  [65.. 122]  ; 

CapeWindow  :=  [29.. 48]  ; 

InRange  :=  False  ; 

IF  (LaunchSite  =  ’ VANDENBERG ’ )  AND  (Inclination  IN  VandWindow) 
THEN  InRange  :=  True  ; 

IF  (LaunchSite  =  'CANAVERAL')  AND  (Inclination  IN  CapeWindow) 
THEN  InRange  :=  True  ; 

IF  LauncherName  =  'SPACE  TAXI’  THEN  Factor  :=  1.0  ; 
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{called  by  the  launch  procedure  when  a  launch  or  deplyment  fails) 
{leaves  unit  in  database  but  marks  it  as  dead) 


PROCEDURE  Kill_Unit  (Root  :  UnitPtr  ;  VAR  Name  :  stringlO  ; 

Number  :  integer  ;  Blank  :  String5)  ; 


BEGIN 

Search  (Root,  Name,  Number,  ’NO')  ; 
IF  Found  THEN 
BEGIN 

Where*. Status  :=  ’DEAD’  ; 

IF  Blank  =  'YES’  THEN  Name  := 
END  ; 

END  ; 


{called  by  the  launch  procedure  when  a  deployment  succeeds) 

(sets  status  to  active) 

PROCEDURE  Activate_Unit  (VAR  Root  :  UnitPtr  ;  VAR  Name  :  stringlO 

Number  :  integer  ;  Blank  :  string5)  ; 


BEGIN 

Search  (Root,  Name,  Number,  ’NO*)  ; 

IF  Found  THEN 
BEGIN 

Where*. Status  :=  ’ACTIVE’  ; 

Where* .Deployed  :=  Year  ; 

IF  Blank  =  ’YES’  THEN  Name  :=  ”  ; 

END  ; 

END  ; 

{vine  of  main  routines,  determines  launch  and  deployment  successes) 
{taker  care  of  main  load  and  any  additional  payloads  or  add-ons) 

OVERLAY  PROCEDURE  Launch  (Root  :  UnitPtr  ;  VAR  WorkUnit-  :  Unit)  ; 


VAR 

Current  :  UnitPtr 
LaunchProb  :  real 
DeployProb  :  real 


BEGIN 

Current  :=  Root  ; 

While  (Current  <>  Nil)  AND  ( (Current* .Name  <>  LiftVehicle)  OR 
(Current* .TailNumber  <)  Lif tVehicleNum) )  DO 
Current  :=  Current* .Next  ; 

WITH  WorkUnit  DO 
BEGIN 
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IF  Current  <>  Nil  THEN 
BEGIN 

LaunchProb  : =  Random  ; 

IF  LaunchProb  >  Current* .Reliability  THEN 
BEGIN 
ClrScr  ; 

TextBackground  (1)  ;  Delay  (800)  ;  ClrScr  ; 

TextBackground  (2)  ; 

ClrScr  ;  Delay  (800)  ;  TextBackground  (3)  ;  ClrScr  : 

Delay  (800)  ; 

Border  1  ;  Border2  ; 

TextColor  (White)  ; 

GotoXY  (20,10)  ;  Write  (Where* .Name ,  Where* .TailNumber :3, 

’ EXPLODES  ON  THE  PAD  !!  I  !»  l  •«•!!«' )  ; 

Center_Line  (14, 

’PayLoad  and  Launcher  are  completely  destroyed’)  ; 

TextColor  (Yellow)  ; 

Center_Line  (20,  ‘Please  hit  any  key  to  continue’)  ; 

Read  (kbd,Ch)  ; 

Search  (Root,  LaunchPad,  LaunchPadNum,  ’NO’)  ; 

IF  Found  THEN 
BEGIN 

Where* .NumRemaining  :=  Where* .NumRemaining  DIV  2  ; 

IF  BUDGET  >  10  THEN  BUDGET  :=  BUDGET  -  10 
ELSE  BUDGET  :=  0  ; 

END  ; 

IF  PayLoad 1  <>  ” 

THEN  KillJJnit  (Root,  PayLoad 1,  Numl ,  ’YES’)  ; 

IF  PayLoad2  <>  ’ ’ 

THEN  KillJJnit  (Root,  PayLoad2,  Num2,  ’YES’)  ; 

IF  PayLoad3  <>  ” 

THEN  KillJJnit  (Root,  PayLoad3,  Num3,  ’YES’)  ; 

IF  PayLoad4  <>  ” 

THEN  KillJJnit  (Root,  PayLoad4 ,  Num4 ,  ’YES’)  ; 


IF  AddOnNamel  <>  ”  THEN 
KillJJnit  (Root,  AddOnNamel,  AddOnNuml ,  ’NO’)  ; 

IF  Add0nName2  <>  ”  THEN 
Kill_Unit  (Root,  Add0nName2,  AddonNum2,  ’NO’)  ; 

IF  Add0nName3  <>  ”  THEN 

Kill_Unit  (Root,  Add0nName3,  Add0nNum3,  ’NO’)  ; 

IF  Add0nName4  <>  "  THEN 
Kill_Unit  (Root,  Add0nName4,  Add0nNum4,  ’NO’)  ; 

IF  AddOnNameS  <>  ”  THEN 
KiJl_Unit  (Root,  Add0nName5,  Add0nNum5,  ’NO’)  ; 

WorkUnit. Status  :=  ’DEAD’  ; 


END  ;  {launch  prob  >  relaiblity) 

IF  LaunchProb  <=  Current* .Reliability  THEN 
BEGIN 

TextBackground  (1)  ; 

ClrScr  ; 

Border  1  ;  TextBackground  (1)  ; 

Center_Line  (12,  ’Sucessful  launch’)  ; 

Delay  (2000)  ; 

DeployProb  :=  Random  ; 

IF  DeployProb  >0.97  THEN 
BEGIN 

TextBackground  (1)  ;  Clrscr  ;  Delay  (800) 

TextBackground  (2)  ;  Clrscr  ;  Delay  (800) 

TextBackground  (3)  ;  ClrScr  ;  Delay  (800) 

textBackground  (1)  ; 

Center_Line  ( 12 , ’Deployment  Failure’)  ; 
Center_Line  (14,  'Satellite  is  lost’)  ; 
Delay  72000)  ; 

Status  :=  ’DEAD'  ; 

IF  PayLoadl  <>  ” 


THEN  Kill_Unit 

(Root , 

PayLoadl , 

Numl , 

’YES’) 

IF  PayLoad2  <>  ” 
THEN  Kill_Unit 

(Root , 

PayLoad2 , 

Num2 , 

’YES’) 

IF  PayLoad3  <>  ” 
THEN  KillJJnit 

(Root, 

PayLoad3 , 

Num3 , 

’YES’) 

IF  PayLoad4  <>  ” 
THEN  Kill_Unit 

(Root , 

PayLoad4 , 

Num4 , 

’YES’) 

IF  AddOnNamel  <>  " 


THEN  KillJJnit 

(Root , 

AddonNamel , 

AddonNuml , 

’NO’)  ; 

IF  Add0nName2  <> 
THEN  KillJJnit 

»  » 

(Root , 

AddonName2 , 

AddonNum2 , 

’NO’)  ; 

IF  Add0nName3  <> 
THEN  Kill_Unit 

t  t 

(Root , 

AddonName3 , 

AddonNum3 , 

’NO’)  ; 

IF  Add0nName4  <> 
THEN  Kil l_Unit 

»  t 

(Root , 

AddonName4 , 

AddonNum4 , 

’NO’)  ; 

IF  Add0nName5  <> 
THEN  KillJJnit 

•  3 

(Root , 

AddonName5 , 

AddonNum5 , 

’NO’)  ; 

Center_Line  (22,  ’Better  Luck  Next  Time’)  ; 
Center_Line  (24,  'Hit  any  key  to  continue')  ; 
Read  (kbd.Ch)  ; 

END  ;  {Deploy  Prob  >  0.97} 


209 


LTPtwVTVTTV 


mmam&m 


IF  DeployProb  <=  0.97  THEN 
BEGIN 

Textbackground  (1)  ; 

Cirscr  ;  Borderl  ; 

TextBackground  (1)  ; 

Center_Line  (14,  ’successful  deployment’)  ; 
Delay  "(2000)  ; 

Status  :=  'ACTIVE'  ; 

Deployed  :=  Year  ; 

IF  PayLoadl  <>  ”  THEN 


Activate. 

.Unit 

(Root , 

PayLoadl , 

Numl , 

’YES')  ; 

IF  PayLoad2 
Activate. 

<>  ” 
.Unit 

THEN 
(Root , 

PayLoad2 , 

Num2 , 

’YES’)  ; 

IF  PayLoad3 
Activate. 

<>  ” 
.Unit 

THEN 
(Root , 

PayLoad3 , 

Num3 , 

’YES’)  ; 

IF  PayLoad4 
Activate 

O  ” 
.Unit 

THEN 
(Root , 

PayLoad4 , 

Num4 , 

’YES’)  ; 

IF  AddOnNarael  <>  "  THEN 

Activate_Unit  (Boot,  AddOnNamel,  AddOnNuml ,  'NO')  ; 

IF  AddOnName2  <>  ”  THEN 

Activate_Unlt  (Boot,  Add0nName2,  Add0nNum2,  'NO’)  ; 

IF  Add0nName3  <>  ”  THEN 

Activate_Unit  (Boot,  Add0nName3,  AddOnNum3,  ’NO’)  ; 

IF  Add0nName4  <>  ”  THEN 

Activate_Unit  (Boot,  Add0nName4,  AddOnNum4,  ’NO')  ; 

IF  Add0nNarae5  <>  "  THEN 

Activate_Unit  (Boot,  Add0nName5,  Add0nNum5,  ’NO’)  ; 

END  ;  {sucessful  deployment) 

(Update  orbit  parameter  file) 

END  ;  (sucessful  launch) 

IF  (Current* .ReuseField  =  ”)  OR  (Current* .ReuseField  =  'NO')  THEN 
Current* .NumActive  :=  Current* .NumActive  -  1 
(decrement  *  launchers) 

ELSE 

BEGIN 

Current* .RemUses  :=  Current* .RemUses  -  1  ; 

Current* .Sorties  :=  Current' .Sorties  -  1  ; 

BUDGET  :=  BUDGET  -  Current* . OMCost  ; 

END  ; 
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END  ;  (not  nil  (liftvehicle  found) 

END  ;  (With) 

NASAOK  :=  False  ; 

MultipleLaunch  :=  False  ; 

Search  (Root,  LaunchPad,  LaunchPadNum,  ’NO’)  ; 

IF  Found  THEN  Where*  .NumRemaining  :=  Where*  .NumRemaining  -  1  ; 
END  ; 


{called  before  every  launch,  gives  civilians  the  opportunity  to  cancel) 
{launch  due  to  violating  civilian  constrainst) 

{is  NASA  players  kills  a  launch,  the  units  go  back  to  a  Ready  status) 
OVERLAY  PROCEDURE  NASA.Check  (WorkUnit  :  Unit)  ; 

BEGIN 

WITH  WorkUnit  DO 
BEGIN 

Textbackground  (1)  ; 

ClrScr  ; 

Border  1  ; 

Border2  ; 

Textbackground  (1)  ; 

NASAOK  :=  False  ; 

Center_Line  (7,  'NASA,  Please  Confirm  Launch  of  ’ )  ; 

GotoXY  (33,10)  ; 

Write  (Name: 10,  TailNumber :3)  ; 

TextColor  (White)  ; 

GotoXY  (20,13)  ;  Write  ('Add-on  Packages’)  ; 

Gotoxy  (50,13)  ;  Write  {’Additional  Payloads’)  ; 

TextColor  (Yellow)  ; 

IF  AddOnName 1  <>  ”  THEN 
BEGIN 

GotoXY  (18,15)  ; 

Write  (AddOnName 1 : 10,  AddOnNural : 3)  ; 

END 

ELSE 

BEGIN 

GotoXY  (23,15)  ;  Write  {'NONE')  ; 

END  ; 

IF  Add0nName2  <>  ”  THEN 
BEGIN 

GotoXY  (18,16)  ; 

Write  (Aad0nName2: 10 ,  Add0nNum2:3)  ; 

END  ; 

IF  Add0nNarae3  <)  ”  THEN 
BEGIN 
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GotoXY  (18,17)  ; 

Write  (Add0nName3: 10 ,  Add0nNum3:3)  ; 
END  ; 


IF  Add0nName4  <>  ‘ ’  THEN 
BEGIN 

GotoXY  (18,18)  ; 

Write  (Add0nName4 : 10 ,  Add0nNum4:3)  ; 
END  ; 


IF  Add0nName5  <>  * ’  THEN 
BEGIN 

GotoXY  (18,19)  : 

write  (Add0nName5: 10 ,  AddOnNum5:35  ; 
END  ; 


IF  PayLoad2  <>  *  *  THEN 
BEGIN 

Gotoxy  (55,15)  ; 

Write  (PayLoad2,  Num2:3)  ; 

END 

ELSE 

BEGIN 

GotoXY  (58,15)  ;  Write  ('NONE’)  ; 
END  ; 


IF  PayLoad3  <>  ”  THEN 
BEGIN 

Gotoxy  (55,16)  ; 

Write  (PayLoad3,  Nura3:3)  ; 
END  ; 


IF  PayLoad4  <>  ”  THEN 
BEGIN 

Gotoxy  (55,17)  ; 

Write  (PayLoad4,  Num4:3)  ; 
END  ; 

Center_Line  (21.  ’ (Y/N)  ’)  ; 


IF  Yes  THEN  NASAOK  :=  True 
ELSE 

BEGIN  (clear  launch  variables) 
NASAOK  :=  False  ; 


AddOnNamel  :=  ’ 1 
Add0nName4  :=  ” 
PayLoadl  :=  ” 
PayLoad4  :=  *‘ 
Status  :=  ’ACTIVE 
END  ; 


Add0nName2 

Add0nName5 

PayLoad2 


Add0nName3 


PayLoad3 


END  ;  (With  workUnit) 


END  ; 
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{Displays  the  launchers  capable  of  lifting  the  designated  payload) 

{function  of  throw  weight  and  orbit  correction  factor) 

OVERLAY  PROCEDURE  Display_Launchers  (Root  :  UnitPtr  ;  VAR  WorkUnit  :  Unit); 
VAR 

Current  :  UnitPtr  ; 

ThisOrbit  :  string5  ; 

AtLeastOne  :  boolean  ; 

Correction  :  real  ; 

BEGIN 

AtLeastOne  :=  False  ; 

Current  :=  Root  ; 

ClearLines  (8,25)  ; 

GotoXY  (1,9)  ; 

WHILE  (Current  <>  Nil)  AND  (Current* .Mission  <>  ’LAUNCHER’  )  DO 
Current  :=  Current* .Next  ; 


WITH  WorkUnit  DO 
BEGIN 

ThisOrbit  :=  Orbit  ; 


WHILE  (Current  <>  Nil)  AND  (Current* .Mission  =  ’LAUNCHER’)  DO 
BEGIN 


Correction  :=  Orbit_Correction_Factor 

(Current* .Name,  Inclination)  ; 


IF  ThisOrbit  =  ’VLEO’ 

THEN  LiftWeight  :=  Current* . VLEO  *  Correction  ; 


IF  ThisOrbit  =  ’LEO’ 

THEN  LiftWeight  :=  Current*. LEO  *  Correction  ; 


IF  ThisOrbit  =  ’M01’ 

THEN  LiftWeight  :=  Current*. MOL  «  Correction  ; 


IF  ThisOrbit  =  ’MEO’ 

THEN  LiftWeight  :=  Current*. MEO  *  Correction  ; 


IF  ThisOrbit  =  ’GEO’ 

THEN  LiftWeight  :=  Current*. GEO  *  Correction  ; 


RemWeight  :=  LiftWeight  ; 


IF  (LiftWeight  >=  Mass)  AND 

( (Current* .ReuseField  <>  ’’)  AND 
(Current*. ReuseField  <>  ’NO’ 5  AND 
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(Current “.Status  =  'ACTIVE')  OR 
(Current* .ReuseField  =  ’’)  OR 
(Current*. ReuseField  =  ’NO’)  AND 
(Current* .NumActive  >  0))  THEN 
BEGIN 


RemWeight  :=  RemWeight  -  Mass  ; 

Writeln  (Current* .Name: 10,  Current* .TailNumber:3, 

Current* . NumActive : 9 , 

TenBlanks,’  Lif tWeight:6:0 , 

TenBlanks,’  Mass:6:0, 

TenBlanks,  '  * .RemWeight :6:0)  ; 

AtLeastOne  :=  True  ; 

END  ; 

Current  :=  Current* .Next  ; 

END  ;  (Mission  -  Launcher) 

IF  NOT  AtLeastOne  THEN 
BEGIN 

Center_Line  (20,  'Need  a  bigger  rocket  in  your  inventory!!!’); 
Center_Line  (25,  'Please  hit  <CR>  to  Continue’)  ;  Read  ; 

END  ; 

END  ;  (With) 

END  ; 


(contains  the  system  level  commands  availabal  only  to  game  controller) 
(accessed  at  various  points  in  the  game  by  enter  the  Shift  and  Tab  key) 
(at  the  same  time) 

PROCEDURE  System_Level_Commands  (Root  :  UnitPtr)  ; 

BEGIN 

REPEAT 

TextBackground  (1)  ; 

ClrScr  ;  Quit  :=  False  ; 

Border  1  ; 

Textbackground  (1)  ; 


Center_Line  (3,  'SYSTEM  LEVEL  COMMANDS  ’) 
Center_Line  (5,  '[Lload  List  ') 
Center_Line  (7,  'TAldd  Unit  ’) 
Center_Line  (  9,  ’(V3iewList  ') 
Center_Line  (11,  ’[Slave  List  ’) 
Center_Line  (13,  ’ [Bludget  Adjustment  ’) 
Center_Line  (15,  ’[Dlelete  Unit  ') 
Center_Line  (17,  ’[Clhange  status  ’) 
Center_Line  (19,  *(Xl  Add  Copy  ') 


Center_Line  (21,  ’ [Y3  Add  Expenable  Launchers’) 


Center_Line  (23,  '[Qluit 


’) 


GotoXY  (40,24)  ; 
Read  (kbd.Ch)  ; 


CASE  Ch  OF 


’A’  , 

,  'a’ 

:  AddUnit 

(Root)  ; 

’L’  , 

,  T 

:  LoadList 

(Root)  ; 

’S’  , 

,  ’s’ 

:  SaveList 

(Root)  ; 

’V’  , 

,  ’v’ 

:  BEGIN 

ViewList  (Root)  ; 

END  ; 

’B’  ,  ’b’  :  BEGIN 

ClrScr  ; 

GotoXY  (30,12)  ; 

Write  (’Current  Budget:  ’,  BUDGET: 5)  ; 
GotoXY  (30,14)  ; 

Write  (’Updated  Budget:’)  ; 

BUDGET  :=  Getlnt  (StringNumber ,  46,14) 
END  ; 


’D’  ,  ’d’  :  BEGIN 

ClrScr  ; 

Center_Line  (12, 

’Enter  Name  of  Unit  to  be  deleted  ’)  ; 

Center_Line  (14, 

’  Enter  Tail  Number  ’)  ; 

GotoXY  (60,12)  ;  Read  (SearchName)  ; 

SearchNumber  :=  Getlnt  (StringNumber,  60,14)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’YES’)  ; 
ClearLineS  (23,25)  ; 

Center_Line  (24, 

’Are  you  sure  you  want  to  delete  this  unit  (Y/N)  ?’); 
IF  Yes  THEN 

Delete  Unit  (Root,  Where*. Name,  Where* .TailNumber)  ; 
END  ; 


’C’  ,  ’c’  :  Change_Status  (Root)  ; 

’X’  ,  ’x’  :  Begin 

ClrScr  ; 

Center_Line  (12,  ’Enter  name  of  unit  to  be  copied’)  ; 
Center_Line  (14,  ’  Enter  tail  number’)  ; 

GotoXY  (60,12)  ;  Read  (SearchName)  ; 

GotoXY  (60,14)  ;  Read  (SearchNumber)  ; 

Search  (Root,  SearchName,  SearchNumber,  ’NO’)  ; 

IF  Found  THEN  Add  Copy  (Root,  Where*)  ; 

END  ; 
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•y*  ,  ’y’  :  BEGIN 

ClrScr  ; 

Center_Line  (4, 

'Adding  Expendable  Launchers  to  Data  Base’)  ; 
Center_Line  (12, 

'Enter  name  of  expendable  launcher  ')  ; 

Read  (SearchNarae)  ; 

Search  (Root,  SearchName,  1,  'YES’)  ; 

IF  Found  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (23, 

'Enter  *  to  add  to  development’)  ; 

Read  (SearchNumber)  ; 

Where *.NumDev  :=  SearchNumber  ; 

END  ;  (Found) 

END  ; 

'Q'  ,  'q*  :  Quit  :=  True  ; 

END  ;  (CASE) 

UNTIL  Quit  ; 

END  ; 


(displays  all  pertanint  data  when  creating  a  composite  satellite) 
PROCEDURE  Compos ite_Satellite_Header  (VAR  Root  :  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

ThisName  :  stringlO  ; 

ThisNumber  :  integer  ; 

CountLines  :  integer  ; 

BEGIN 

Current  :=  Root  ; 

ClrScr  ; 

Center_Llne  (2,  'Composite  Satellite  Screen’)  ; 

Center_Line  (3, 

'Add-on  systems  add  50  X  of  their  weight  to  overall  system’)  ; 
CenierJLine  (6,  'Satellites  Ready  For  Launch’)  ; 

GotoXY~( 1 ,9)  ;  Write  {'  Mission’)  ;  GotoXY  (20,9)  ;  Write  ('Name')  ; 
GotoXY  (30,9)  ;  Write  (’Tail  Number’)  ;  GotoXY  (45,9)  ;  Write  (’Orbit’) 
GotoXY  (55,9)  ;  Write  (’Inclination’)  ;  GotoXY  (72,9)  ;  Write  (’Mass’) 
GotoXY  (1,11)  ; 

CountLines  :=  11  ; 


WHILE  (Current  <>  Nil)  AND  (CountLines  <  23)  DO 
BEGIN 

IF  (Current* .Mission  <>  ’GROUND’)  AND 
(Current*. Mission  <>  ’LAUNCHER’) 

AND  (Current*. Mission  <>  ’PAD’)  AND 
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(Current*. Status  =  ’READY')  THEN 


BEGIN 

Writeln  (Current* .Mission: 10 ,  Current* .Name: 15, 

Current* .Tail Number : 1 1 ,  Current* .Orbit: 12 , 
Current* . Inclination: 12,  TenBlanks, 
Current* .Mass : 5 : 0)  ; 

CountLines  :=  CountLines  +  1  ; 

END  ; 

Current  :=  Current* . Next  ; 

END  ;  (Not  nil  and  Lines  <  23) 

IF  CountLines  >=  23  THEN 
BEGIN 

ClearLines  (23,25)  ; 

Center_Line  (24,  ’Hit  *C*  to  continue  listing  ’)  ; 

IF  Continue  THEN  Composite_Satellite_Header  (Current)  ; 

END  ;  (lines  >=  23) 

END  ; 


(Count_Ground  displays  all  the  ground  units  available  to  assign  to  } 
(satellites  in  the  Production  Stage.  Separated  by  type  of  unit  into) 
(their  own  columns.) 

PROCEDURE  Count_Ground  (Var  Root  :  UnitPtr  ;  Catagory  :  stringlO)  ; 

VAR 

Current  :  UnitPtr  ; 

CountLines  :  integer  ; 

Line  :  integer  ; 

BEGIN 

Current  :=  Root  ; 

CountLines  :=  0  ; 

Line  :=  5  ; 

While  (Current  <>  Nil)  ANd  (CountLines  <  6)  DO 
BEGIN 

If  (Current* .Mission  =  ’GROUND’)  AND  (Current* .Kind  =  Catagory)  AND 
( (Current* .SupportName  -  ”)  OR  (Current* .SupportName  =  ’NONE’)) 
AND  (Current '.Status  =  ’ACTIVE’)  THEN 
BEGIN 

If  Catagory  =  ’CONTROL’  THEN 
BEGIN 

GotoXY  (5,  Line)  ; 

Write  (Current* .Name : 10 ,  Current* . tailNuraber:3)  ; 

Line  :=  Line  +  1  ; 

END  ; 

IF  Catagory  =  ’PROCESSOR’  THEN 
BEGIN 


GotoXY  (30, Line)  ; 

Write  (Current* .Name : 10 ,  Current* . tailNumber : 3)  ; 
Line  :=  Line  +  1  ; 

END  ; 

IF  Category  =  ’USER’  THEN 
BEGIN 

GotoXY  (55,  Line)  ; 

Write  (Current* .Name: 10 ,  Current* .TailNumber: 3)  ; 
Line  :=  Line  +  1  ; 

END  ; 

END  ;  {if  ground/catagory/active) 

Current  :=  Current* .Next  ; 

END  ;  (not  nil  and  <  6) 

IF  CountLines  >  6  THEN 
BEGIN 

ClearLines  (12,12)  ; 

Center_Line  (12,  'Hit  *C*  to  continue  listing’)  ; 

IF  Continue  THEN  Count  Ground  (Current,  Catagory)  ; 

END  ; 


END  ; 


{displays  all  the  satellites  currently  in  the  production  state  and  the) 
{ground  elements  allready  assigned  to  them) 

PROCEDURE  Display_System_CheckList  (Var  Root  :  UnitPtr)  ; 

VAR 

Current  :  UnitPtr  ; 

CountLines  :  integer  ; 

BEGIN 

Window  (1,1,80,13)  ; 

Textbackground  (1)  ; 

ClrScr  ; 

Textcolor  (white)  ; 

Center.line  (1,  'SYSTEM  CHECK  LIST’ )  ; 

Center_LIne  (2,  'For  Satellites  in  Production  Status’)  ; 

GotoXY~ (20, 4)  ;  Write  ('GROUND  CONTROL’)  ; 

GotoXY  (40,4)  ;  Write  (’DATA  PROCESSING’)  ; 

GotoXY  (60,4)  ;  Write  ('USER  TERMINAL’)  ; 

GotoXY  (2,5)  ;  Write  (’Satellite  »’)  ; 

GotoXY  (23,5)  ;  Write  (’System  »')  ; 

GotoXY  (43,5)  ;  Write  ('System  #’)  ; 

GotoXY  (63,5)  ;  Write  ('System  #’)  ; 

TextColor  (Yellow)  ; 
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CountLines  :=  7  ; 

Current  :=  Root  ; 

GotoXY  (1,7)  ; 

While  (Current  <>  Nil)  AND  (CountLines  <  13)  DO 
BEGIN 

IF  (Current* .Mission  <>  ’GROUND’)  AND  (Current* .Mission  <>  ’LAUNCHER’) 
AND  (Current* .Mission  <>  ’FAD’)  AND 

(Current* .Status  =  ’PRODUCTION’)  THEN 
BEGIN 

Writeln  (Current* .Name : 10 ,  Current* .TailNumber :4 , 

Current* .ControlName: 15,  Current* .ControlNumber:3, 
Current* .ProcessorName: 17,  Current* . ProcessorNumber :3 , 
Current* .UserName: 17 ,  Current* . UserNumber : 3)  ; 


CountLines  :=  CountLines  +  1  ; 
END  ; 


Current  :=  Current* . Next  ; 


END  ;  (While) 


IF  CountLines  >=  13  THEN 
BEGIN 

ClearLines  (13,13)  ; 

Center_Line  (13,  ’hit  "C‘  to  continue  listing’  )  ; 
IF  Continue  THEN  Display  System  CheckList  (Current) 
ELSE  ClearLines  (13,13)  7 
END  ; 


IF  Current  =  Nil  THEN 
BEGIN 

ClearLines  (13,13)  ; 

Center_Line  (13,  'HIT  'C*  to  restart  listing  or  <CR>  to  assign’)  ; 
IF  Continue  THEN  Display_System  CheckList  (Head) 

ELSE  ClearLines  (13,13)  ; 

END  ; 


END  ; 
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